<-4  cz 


AFIT/GEO/EE/82M-1 


~  A '  .  ; 


urt-if  ie 1*  ion _ 


By.  .  1 

_PlStr 

Aval 

Dlst 

ft 

ibu'.io: 

lobilil 

Avail 

Spec 

V 

-y  Codes 

and/or 

lal 

j 


AN  AUTOMATED  TEMPERATURE  CONTROLLER 
FOR  THE  ADVANCED  HALL  EFFECT 
EXPERIMENTAL  DATA  ACQUISITION  SYSTEM 
THESIS 

AFIT/GEO/EE/82M-1  Daniel  J.  Page 
2Lt  USAF 


distribution  statement  a 

Approved  Joi  public  rei*o#«; 
Distribution  Unlimited 


AFIT/GEO/EE/82M-1 


AN  AUTOMATED  TEMPERATURE  CONTROLLER 
FOR  THE  ADVANCED  HALL  EFFECT 
EXPERIMENTAL  DATA  ACQUISITION  SYSTEM 


THESIS 


Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
in  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of 
Master  of  Science  in  Electrical  Engineering 


by 

Daniel  J.  Page,  B.S.E.E. 
Second  Lieutenant  USAF 

Graduate  Electro  Optics 
March  1982 


Approved  for  Public  Release;  Distribution  Unlimited. 


AFTT/CE0/EE/82M-1 


AN  AUTOMATED  TEMPERATURE  CONTROLLER 
FOR  THE  ADVANCED  HALL  EFFECT  DATA 
ACQUISITION  SYSTEM 


/ 


THESIS 


Presented  to  the  Faculty  of  the  School  of  Engineering 
of  the  Air  Force  Institute  of  Technology 
in  Partial  Fulfillment  of  the 
Requirements  for  the  Degree  of 
Master  of  Science  in  Electrical  Engineering 


by 

Daniel  J.  Page,  B.S.E.E. 
Second  Lieutenant  USAF 

Graduate  Electro  Optics 
March  1982 


Approved  for  public  release;  distribution  unlimited. 


Preface 


Dr.  Patrick  M.  Hemenger  of  the  Air  Force  Wright  Aeronautical 
Laboratories,  Materials  Laboratory  (AFWAL/ML),  Wr lght-Patterson  Air 
Force  Base,  Ohio,  developed  and  built  a  Hall  effect  experiment  to 
gather  data  on  the  Impurity  levels  and  electrical  properties  of  silicon 
samples.  In  1979,  this  experiment  was  totally  automated  with  the  ex¬ 
ception  of  temperature  control.  Starting  with  the  experimental  equip¬ 
ment  and  the  automation  system,  I  designed  and  Implemented  an  automatic 
temperature  controller  which  would  have  completed  the  automation  of  the 
experiment.  This  report  details  the  process  of  designing  and  Imple¬ 
menting  this  controller. 
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report  In  detail  to  help  shape  it  into  a  more  readable  product.  I 
would  also  like  to  thank  the  other  members  of  my  thesis  committee: 

Dr.  Thomas  C.  Hart rum  and  Dr.  Theodore  E.  Luke. 

I  also  want  to  thank  Dr.  Hemenger,  the  thesis  sponsor  who  pro¬ 
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all  the  necessary  Information  and  equipment  to  complete  the  design  and 
implementation. 
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of  these  men  provided  chelr  skill  and  expertise  during  the  implementation 
of  the  hardware  and  software  designs.  Without  their  help,  the  controller 
could  not  have  been  built. 

I  would  also  like  to  thank  Mrs.  Diane  Katterheinrlch  who  proofed 
and  typed  the  final  copy  of  this  report  and  to  Lt.  David  A.  Huss  who 
drafted  most  of  the  figures. 
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Abstract 

The  Air  Force  Wright  Aeronautical  Laboratories,  Materials  Laboratory, 
conducts  experiments  using  the  Hall  effect  to  characterize  the  electrical 
properties  and  Impurity  levels  of  silicon  samples.  Ait  automated  data 
acquisition  system  controls  the  conduct  of  the  experiment  and  reduces 
all  the  necessary  data. 

The  purpose  of  this  study  was  the  development  of  an  automated 
temperature  controller  to  interface  with  the  automated  data  acquisition 
system  and  the  experiment.  The  temperature  controller  is  designed  to 
control  the  temperature  of  the  silicon  sample  to  within  0.005  degrees 
Kelvin  In  the  temperature  range  of  4.2  to  300  degrees  Kelvin.  The 
control  algor lthn  measures  the  thermal  Impulse  response  of  the  system 
and  uses  this  Information  to  adjust  and  control  the  temperature. 

An  MC6809  microprocessor  with  10K  bytes  of  EPROM  and  640  bytes  of 
RAM  Is  used  to  Implement  the  controller.  The  control  algorithm  and  other 
software  was  developed  to  enable  the  controller  to  control  temperature. 

A  number  of  problems  with  the  present  controller  design  are  identified 
and  recommendations  for  Improvements  to  the  design  are  made. 
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I.  Introduction 


The  Air  Force  Wright  Aeronautical  Laboratories,  Materials  Laboratory 
(AFWAL/ML) ,  Wrlght-Patterson  Air  Force  Base,  Ohio,  uses  a  Hall  effect 
experiment  to  analyze  the  dopant  and  impurity  content  of  silicon  samples. 
They  wanted  to  develop  an  automatic  temperature  controller  in  order  to 
complete  the  total  automation  of  their  experiment.  This  report  describes 
the  requirements,  design,  and  implementation  of  this  controller. 

Background 

AFWAL/ML  is  tasked  with  determining  the  impurity  concentrations  in 
various  semiconductor  samples  used  for  optical  detectors  and  for  very 
high  speed  integrated  circuits.  The  concentrations  and  activation 
energies  of  electrically  active  impurities  are  important  quantities  for 
the  complete  characterization  of  these  semiconductors.  Measurements  of 
sample  resistivity  and  Hall  voltage  versus  temperature  enable  the  exper¬ 
imenter  to  determine  the  electrical  transport  properties  of  a  semicon¬ 
ductor  sample.  From  these  measurements,  the  net  impurity  concentrations 
and  carrier  mobility  can  be  determined.  [Ref.  1] 

The  experiment  was  originally  done  manually.  It  took  from  six  to 
eight  hours  to  make  all  the  necessary  measurements  on  one  sample.  Using 
the  van  der  Pauw  and  the  classical  Hall  bar  methods,  600  to  1200  voltage 
versus  current  measurements  were  made  over  a  temperature  range  of  A. 2  to 
300  degrees  Kelvin.  While  successful,  this  experiment  was  awkward  to 
perform. 
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In  1979,  Captain  Edgar  A.  Verchot,  Jr.  automated  the  control  of 
the  experiment  and  data  acquisition  using  an  LSI-11  microcomputer  sys¬ 
tem.  The  Advanced  Hall  Effect- Data  Acquisition  System  (AHEEDAS) ,  as  it 
is  called,  controls  all  aspects  of  the  experiment  except  for  the  temper¬ 
ature  control.  Temperature  control  remained  manual  at  the  user's  re¬ 
quest.  Temperature  control  under  AHEEDAS,  as  under  the  manual  experi¬ 
ment,  was  accomplished  using  an  analog  controller.  Using  AHEEDAS 
lessened  considerably  the  amount  of  time  and  effort  needed  to  collect 
data,  however,  much  valuable  technician  time  was  lost  in  monitoring  the 
analog  temperature  controller. 

Problem 

To  relieve  the  technicians  from  monitoring  the  experimental  appa¬ 
ratus,  the  user  wanted  to  automate  the  temperature  controller.  One 
requirement  for  this  controller  was  that  it  be  compatible  with  the 
AHEEDAS  system.  In  addition,  the  user  wanted  to  have  the  capability  to 
use  this  same  automatic  temperature  controller  for  future  projects 
requiring  temperature  control.  Hence,  temperature  control  could  not  be 
implemented  using  the  AHEEDAS  computer  system.  The  purpose  of  this 
study,  therefore,  was  to  design  and  implement  a  stand-alone  automatic 
temperature  controller  that  is  compatible  with  the  present  experimental 
set-up  and  can  be  used  for  future  projects. 

Constraints 

During  the  development  of  AHEEDAS,  a  Hewlett-Packard  Model  6130C 
Digital  Voltage  Source  was  purchased  by  the  user.  In  order  to  reduce 
the  cost  of  this  project,  it  was  requested  that  this  source  be  used,  if 
possible,  to  drive  the  heating  element.  In  addition  to  this  constraint. 
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the  user  also  requested  that  the  temperature  controller  have  the  capa¬ 
bility  of  being  used  not  only  in  an  automatic  mode  under  the  control  of 
the  LSI-11,  but  also  in  a  manual  mode  under  the  control  of  the  techni¬ 
cian. 

Scope  of  Thesis 

A  discussion  of  the  experimental  environment  and  AHEEDAS  is  contained 
in  Chapter  II.  The  requirements  for  the  automatic  temperature  controller 
based  upon  this  discussion  are  also  contained  in  this  chapter.  Chapter 
III  details  the  hardware  design  and  implementation  of  the  controller. 

The  control  scheme  and  supporting  software  are  the  main  subjects  covered 
in  Chapter  IV.  Finally,  recommendation  for  improvements  to  the  auto¬ 
matic  temperature  controller  are  discussed  in  Chapter  V. 
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II.  Requirements  Definition 


Before  detailing  the  hardware  design  and  Implementation,  the  re¬ 
quirements  on  the  temperature  controller  must  be  defined.  This  chapter 
contains  discussions  on  the  AHEEDAS  system,  experimental  environment, 
temperature  measurement,  and  temperature  adjustment  which  define  some 
of  these  requirements.  The  remaining  requirements  are  based  upon  the 
user’s  desires  and  constraints  and  are  also  included  in  this  chapter. 

AHEEDAS 

.  • 

Before  the  requirements  on  the  automatic  temperature  controller 
were  defined,  the  Hall  experiment  and  the  AHEEDAS  system  were  examined. 

As  was  stated  in  Chapter  I,  the  purpose  of  this  experiment  is  to  measure 
the  impurity  concentrations . in  semiconductor  samples.  To  accomplish 
this,  two  methods  of  data  acquisition  can  be  used  in  the  Hall  experiment: 
the  van  der  Pauw  method  and  the  classical  Hall  bar  method.  These  two 
methods  differ  only  in  the  configuration  of  the  sample  contacts  and  the 
equations  used  to  derive  the  parameters  of  interest:  resistivity.  Hall 
mobility,  carrier  concentration,  and  the  Hall  coefficient.  Therefore, 
only  the  van  der  Pauw  method  will  be  discussed  here. 

The  van  der  Pauw  technique  uses  a  sample  having  only  four  electri¬ 
cal  contacts  (Fig.  1).  In  each  of  the  six  configurations,  the  potential 
difference  between  VI  and  V2  is  recorded.  Additionally,  these  measure¬ 
ments  are  repeated  with  the  biasing  voltage  reversed.  In  sample  con¬ 
figurations  (e)  and  (f) ,  the  voltage  difference  between  VI  and  V2  with  a 
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Figure  1.  van  der  Pauv  Sample  Configurations  [Ref.  1[ 

magnetic  field  applied  perpendicularly  to  the  sample  is  also  measured. 
Both  polarities  of  the  field  must  be  used  for  these  measurements.  From 
these  data,  the  four  parameters  of  interest  are  calculated.  The 
van  der  Pauw  technique  is  then  repeated  at  a  full  range  of  temperatures 
from  4.2  to  300  degrees  Kelvin  yielding  sample  resistivity,  Hall  mobility, 
carrier  concentration,  and  the  Hall  coefficient  as  a  function  of  temper¬ 
ature.  Further  analysis  of  these  data  produces  information  on  the 
impurity  concentration  in  the  sample.  [Ref.  1] 

The  AHEEDAS  system  controls  all  aspects  of  the  Hall  experiment  with 
the  exception  of  temperature  control.  This  system  controls  the  switching 
between  each  of  the  various  sample  configurations,  measures  and  controls 
the  magnetic  field  strength,  takes  all  necessary  sample  measurements, 
and  reduces  the  sample  measurements  to  obtain  the  output  parameters. 
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The  AHEEDAS  produces  a  list  of  sample  resistivity,  Hall  mobility,  carrier 
concentration,  and  the  Kali  coefficient  as  a  function  of  temperature. 

This  output  is  stored  in  data  files  on  floppy  disk  storage  along  with 
all  of  the  raw  data  from  the  experiment.  The  output  is  also  printed  on 
an  interactive  terminal  as  the  experiment  is  done.  [Ref.  1] 

The  only  remaining  gap  in  the  AHEEDAS  system  is  temperature  control. 
Because  of  this,  the  AHEEDAS  system  cannot  conduct  the  Hall  experiment 
unattended.  An  automated  temperature  controller  that  interacts  with 
both  the  AHEEDAS  system  and  the  Hall  experiment,  however,  would  allevi¬ 
ate  this  problem. 

Experimental  Environment 

Before  any  serious  work  could  be  done  on  the  automatic  temperature 
controller,  the  experimental  environment  had  to  be  understood.  To  deter¬ 
mine  these  requirements,  three  areas  were  examined:  the  physical  ar¬ 
rangement  of  the  major  components  of  the  experiment,  the  method  of  data 
acquisition,  and  the  precision  of  the  final  results  of  the  experiment. 
These  examinations  formed  the  basis  upon  which  further  analysis  of  the 
requirements  could  be  based. 

In  examining  the  physical  arrangement  of  the  experimental  apparatus, 
six  major  components  were  identified.  These  included:  the  sample 
holder,  the  cooling  hardware,  the  electromagnet,  the  biasing  sources  and 
Instrumentation,  the  LSI-11  computer  system,  and  the  analog  temperature 
controller  (Fig.  2). 


The  first  of  these  components,  the  sample  holder,  essentially  con¬ 
sists  of  a  copper  bar  upon  which  the  silicon  sample  is  placed.  Attached 
to  this  copper  bar  is  a  50  ohm  coll  of  copper  wire  which  is  used  to  heat 


the  sample.  Directly  under  the  bar  are  located  three  thermometers:  a 
silicon  diode,  a  carbon-glass  resistor,  and  a  platinum  resistor.  These 
thermometers  are  used  for  temperature  measurement  and  control.  The 
ailicon  sample  and  the  three  thermometers  are  electrically  connected  to 
coaxial  leads  which  carry  the  signals  to  and  from  the  sample  holder. 

The  entire  sample  holder  is  covered  with  a  copper  cover. 

The  second  of  the  experimental  components  is  the  cooling  hardware. 
This  is  an  open  loop  cooling  systan  consisting  of  a  liquid  helium  source, 
a  diffuser,  and  a  triple-walled  dewar.  The  liquid  helium  flows  through 
the  diffuser  and  is  vaporized  as  it  enters  the  dewar.  The  sample  holder 
is  placed  in  this  helium  stream.  The  exhaust  gas  is  then  carried  out 
the  top  of  the  dewar.  With  this  system,  it  is  possible  to  obtain  tem¬ 
peratures  of  4.2  degrees  Kelvin,  the  boiling  point  of  helium,  with  little 
or  no  effect  from  the  room  environment. 

The  third  component  of  the  experimental  system  is  the  electromagnet. 
Both  the  van  der  Pauw  and  the  Hall  bar  measurement  techniques  require 
that  large  magnetic  fields  be  placed  perpendicular  to  the  sample.  For 
this  reason,  the  dewar  is  positioned  between  the  poles  of  the  electro¬ 
magnet  in  such  a  way  as  to  place  the  sample  perpendicular  to  the  magnetic 
field. 

The  fourth  major  component  of  the  system  is  the  instrumentation  and 
the  biasing  sources.  Included  in  this  component  of  the  system  is  all 
the  metering  needed  to  measure  the  voltage,  current,  and  magnetic  field 
strength.  Also  included  in  this  component  are  the  sources  needed  to 
place  the  proper  bias  on  the  silicon  sample  and  the  switching  network 
used  to  change  to  each  of  the  various  configurations  of  the  van  der  Pauw 
and  Hall  bar  measurements.  All  of  this  equipment  is  compatible  with  a 
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digital  Interface.  Of  particular  interest  to  the  design  of  the  taaper- 
ature  controller  is  the  equipment  used  to  measure  temperature.  This 
consists  of  a  10  microampere  constant  current  source  to  bias  the  silicon 
diode  thermometer  and  a  Hewlett-Packard  Model  3455A  Digital  Voltmeter  to 
measure  the  voltage  across  this  diode. 

The  fifth  component  of  the  system  is  the  LSI-11  computer  system. 

This  system  controls  the  actual  execution  of  the  experiment  and  was 
therefore  very  Important  in  the  design  of  the  temperature  controller. 

This  system  consists  of  a  Digital  Equipment  Corporation  LSI-11  micro¬ 
computer  system  with  28K  words  of  memory,  a  floppy  disk  system,  an 
interactive  terminal,  and  an  acoustic  coupler.  The  LSI-11  Interfaces 
wit h  some  of  the  experimental  equipment  through  DRV-11  parallel  inter¬ 
face  cards.  The  remaining  equipment  is  Interfaced  through  an  IEEE 
488-1975  standard  bus.  Contained  in  this  computer  system  is  the  AHEEDAS 
program  and  a  calibration  table  for  the  silicon  diode  thermometer. 

The  final  component  of  the  experimental  system  was  the  analog 
temperature  controller.  This  controller,  the  Artronix  Model  5301,  was 
connected  to  the  sample  heater  and  the  two  control  thermometers,  the 
carbon-glass  and  platinum  resistors.  These  connections  completed  a 
closed-loop  temperature  control  system  between  the  Artronix  controller 
and  the  sample  holder.  The  appropriate  control  thermometer  was  switch 
selectable  from  the  front  of  the  analog  controller.  Using  this  analog 
controller  with  the  two  control  thermometers  enabled  temperature  to  be 
controlled  to  within  approximately  0.01  degrees  Kelvin.  The  Artronix 
analog  controller  supplied  the  sample  heater  with  an  output  voltage  of 
0  to  50  volts  with  a  maximum  current  of  1  ampere.  This  output  corre¬ 
sponded  to  a  temperature  range  of  4.2  to  approximately  300  degrees  Kelvin. 
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After  examining  the  physical  arrangement  of  the  experimental  appa¬ 
ratus,  the  next  area  that  needed  to  be  studied  was  that  of  data  acquisi¬ 
tion.  Of  particular  interest  in  this  study  was  not  how  the  data  were 
obtained  from  the  silicon  sample,  but  rather  the  steps  involved  in 
reaching  a  temperature  set  point  and  the  events  that  occurred  during 
data  acquisition  that  affected  temperature  control. 

Originally,  a  typical  data  acquisition  cycle  began  with  the  LSI-ll 
displaying  a  prompt  on  the  terminal.  This  prompt  specified  a  temperature 
set  point  and  the  corresponding  voltage  for  the  silicon  diode  and  asked 
the  user  to  adjust  the  analog  controller  until  this  specified  voltage  is 
reached.  (The  silicon  diode  voltage/temperature  calibration  table  is 
contained  in  the  LSI-11  computer.)  At  this  point,  the  user  decided 
which  control  thermometer  to  use.  Typically  the  carbon-glass  resistor 
is  used  at  temperatures  below  60  degrees  Kelvin  and  the  platinum  resistor 
is  used  above  this  point.  After  the  appropriate  choice  of  thermometer 
was  made,  the  user  set  the  requested  voltage  by  adjusting  the  analog 
controller  while  monitoring  the  diode  voltage  on  the  digital  voltmeter. 
Once  the  user  determined  that  the  voltage  was  properly  set,  he  then 
signaled  the  LSI-11  by  typing  a  'GO'  command  on  the  terminal.  The 
LSI-11  then  began  the  actual  data  acquisition  process. 

During  some  points  in  the  data  acquisition  process,  the  magnetic 
field  is  raised  to  1  kilogauss.  The  LSI-11  needs  precise  temperature 
measurements.  However,  due  to  the  high  magnetoresistance  of  the  silicon 
diode,  these  temperature  measurements  can  not  be  made  while  the  field  is 
on.  (It  is  for  this  same  reason  that  the  silicon  diode  can  not  be  used 
for  temperature  control.)  To  alleviate  this  problem,  the  temperature  is 
measured  with  the  silicon  diode  just  before  the  field  is  turned  on  with 
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Che  assumption  chat  Che  CemperaCure  is  controlled  adequately  during  Che 
on-field  times.  After  all  data  are  collected,  Che  magnetic  field  is 
returned  Co  zero  and  Che  LSI-11  displays  Che  prompt  for  Che  next  temper¬ 
ature  see  point. 

Once  Che  data  acquisition  process  was  understood,  the  next  area  to 
be  Investigated  was  the  precision  of  the  final  results  of  the  experiment. 
In  this  case,  the  main  concern  was  how  precise  the  temperature  had  to  be 
maintained  in  order  to  have  the  desired  precision  in  the  results. 

Carrier  concentration  is  the  most  sensitive  quantity  to  variations 
in  temperature.  From  solid  state  physics  theory,  the  number  of  holes 
per  unit  volume  in  a  p-type  semiconductor  is  given  by: 

1 

2  EXP  (  -E/kT )  (1) 

where 

p  ■  hole  concentration  (#/cubic  meter) 

m*  -  reduced  mass  of  a  hole  in  silicon 

-  5.37E-31  kilograms 

k  -  Boltzmann's  constant 

-  8.62E-5  electron  volts  per  degree  Kelvin 

T  *  temperature  (degrees  Kelvin) 

h  -  Planck's  constant 

■  4.14E-15  electron  volt-seconds 

E  -  ionization  energy  of  the  dopant  (electron  volts)  [Ref.  2] 


p  -  2 


2xm^kT 

h2 


From  equation  (1)  it  was  determined  that  the  relative  error  in  temper¬ 
ature  la  given  by: 


dt 

T 


3  +  — 
J  kT 


dp 

P 


(2) 
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Since  the  effect  of  temperature  variation  la  Inversely  proportional  to 
the  temperature,  temperature  control  1b  more  critical  at  the  lower 
temperatures. 

A  typical  sample  used  In  this  experiment  is  boron-doped  silicon 
which  has  an  ionization  energy  of  0.045  electron  volts.  Measurements 
are  usually  taken  down  to  a  temperature  of  18  degrees  Kelvin  for  this 
substance,  due  to  the  increasing  resistivity  of  the  sample  with  de¬ 
creasing  temperature.  The  user  wanted  to  be  able  to  measure  the  carrier 
concentration  with  a  relative  error  on  the  order  of  one  percent.  Upon 
substitution  these  values  into  equation  (2),  it  was  found  that  the 
temperature  had  to  be  controlled  to  within  less  than  0.01  degrees  Kelvin. 
Similar  values  for  temperature  deviation  were  obtained  for  other  dopant 
materials.  Based  upon  this  information,  the  required  temperature  devi¬ 
ation  was  assumed  to  be  0.005  degrees  Kelvin  for  all  further  calcula¬ 
tions. 

Temperature  Measurement 

Once  an  understanding  of  the  experimental  environment  had  been 
gained,  a  closer  look  at  temperature  measurement  was  needed.  In  this 
examination,  three  questions  were  answered:  ^Thy  were  three  thermometers 
needed,  how  did  these  three  thermometers  raasur e  temperature,  and  what 
requirements  would  be  Implied  if  these  three  thermometers  were  used  in 
the  automatic  temperature  controller? 

In  the  discussion  on  the  experimental  environment,  it  was  shown 
that  three  thermometers  are  located  in  the  sample  holder:  a  temperature 
measurement  thermometer  (the  silicon  diode)  and  two  control  thermometers 
(the  carbon-glass  and  platinum  resistors).  It  was  also  mentioned  that 
the  silicon  diode  has  a  high  magnetoresistance  and  therefore  can  not  be 
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used  for  temperature  control  or  measurement  while  the  magnetic  field  is 
on.  Both  the  carbon-glass  and  the  platinum  thermometers  have  a  negli¬ 
gible  magnetoresistance  making  them  ideal  for  temperature  control.  These 
thermometers,  however,  lack  the  repeatability  which  the  silicon  diode 
possesses.  Neither  of  them,  therefore,  were  adequate  for  accurate 
temperature  measurement.  For  this  reason,  separate  thermometers  are 
needed  for  temperature  measurement  and  control. 

The  justification  for  using  two  control  thermometers  was  shown  by 
examining  the  plots  of  resistance  versus  temperature  for  the  two  ther¬ 
mometers  and  recalling  that  temperature  control  was  more  critical  at 
lower  temperatures  (rigs.  344).  Clearly,  the  carbon-glass  resistor 
met  this  criteria  however,  it  does  not  have  the  sensitivity  to  operate 
above  approximately  60  degrees  Kelvin.  Therefore,  a  second  control 
thermometer  was  needed  —  the  platinum  resistor.  The  combination  of 
these  two  thermometers  enabled  the  analog  controller  to  monitor  varia¬ 
tions  in  temperature  over  the  entire  temperature  range. 

To  answer  the  question  of  how  the  three  thermometers  measured 
temperature,  it  was  necessary  to  examine  the  two  control  thermometers 
separately  from  the  silicon  diode  thermometer.  The  control  thermometers, 
as  stated  in  the  previous  section,  interfaced  only  with  the  analog  con¬ 
troller.  This  controller  provided  a  constant  voltage  to  these  two  ther¬ 
mometers  and  measured  the  current  flowing  through  them.  In  this  way, 
the  controller  could  measure  the  resistance  of  the  two  thermometers,  and 
thus  the  temperature.  The  silicon  diode,  on  the  other  hand,  is  forward 
biased  with  a  10  microampere  constant  current.  This  current  yields  a 
voltage  across  the  diode  which  varies  with  temperature  (Fig.  5). 
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Figure  3.  Carbon-Glass  Thermometer  Resistance  vs.  Temperature  [Ref.  3] 


the  automated  controller.  This  Is  because  the  silicon  diode  is  the 
only  calibrated  measure  of  the  actual  temperature  of  the  sample.  There¬ 
fore,  this  controller  has  to  be  able  to  measure  the  voltage  signal  from 
the  silicon  diode. 

The  automated  controller  also  has  to  interact  with  the  two  control 
thermometers.  In  addition,  both  of  these  thermometers  need  a  biasing 
source,  since  the  original  biasing  source,  the  analog  controller,  was 
to  be  replaced  by  the  automated  controller.  Two  schemes  were  possible 
for  biasing  the  thermometers  and  measuring  the  resulting  signals: 
placing  a  constant  voltage  across  the  thermometers  and  measuring  the 
resulting  currents  or  placing  a  constant  current  through  the  thermometers 
and  measuring  the  resulting  voltages.  The  actual  scheme  used  was  deter¬ 
mined  during  the  hardware  design. 

The  requirements  on  the  signal  measurement  sensitivity  for  the 
automatic  temperature  controller  were  determined  from  examining  the 
plots  of  voltage  versus  temperature  for  the  silicon  diode  and  resistance 
versus  temperature  fo.r  the  two  control  thermometers.  Using  a  tempera¬ 
ture  deviation  of  0.005  degrees  Kelvin,  it  was  found  that  the  silicon 
diode  voltage  has  to  be  measured  to  within  one  part  in  7*000  at  4.2 
degrees  Kelvin  and  to  within  one  part  in  30,000  at  300  degrees  Kelvin. 

The  measurement  sensitivity  for  the  two  control  thermometers  was 
evaluated  at  60  degrees  Kelvin,  the  changeover  point  between  the  two 
thermometers.  This  point  was  also  the  point  of  least  sensitivity  for 
these  two  thermometers.  Again,  using  a  temperature  deviation  of  0.005 
degrees  Kelvin,  the  required  sensitivity  was  found  to  be  one  part  in 
18,000  for  the  carbon-glass  resistor  and  one  part  in  7,000  for  the 
platinum  resistor.  The  signal  measurement  equipment  of  the  automatic 
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temperature  controller  is  required,  therefore,  to  measure  the  current 
and  voltage  signals  to  within  these  tolerances. 

Temperature  Adjustment 

After  examining  the  thermometers  and  the  temperature  measurement 
scheme,  a  clearer  understanding  of  the  temperature  measurement  process 
was  needed.  Temperature  adjustment  was  originally  accomplished  by  the 
user  and  the  Artronix  analog  temperature  controller.  The  user,  while 
monitoring  the  silicon  diode  thermometer  voltage,  made  adjustments  to 
the  analog  controller  until  the  desired  voltage  was  obtained.  The 
analog  controller,  in  turn,  controlled  the  power  being  sent  to  the 
heater  coil  in  the  sample  holder.  Once  the  proper  diode  voltage  was 
obtained,  the  analog  controller  could  maintain  the  temperature  by 
monitoring  the  input  from  the  selected  control  thermometer  and  making 
the  appropriate  adjustments  to  the  heater  coil  power.  The  automated 
temperature  controller  has  to  perform  all  of  these  tasks:  monitoring 
the  silicon  diode,  adjusting  the  power  to  the  heater  coil,  selecting 
and  monitoring  the  proper  control  thermometer,  and  changing  or  main¬ 
taining  a  temperature. 

Some  special  quirks  of  the  system  had  to  be  considered  in  performing 
these  tasks.  It  was  noted  when  changing  from  one  temperature  to  another 
using  the  analog  controller  that  the  system  reacted  quite  differently  at 
different  temperature  ranges.  At  temperatures  below  approximately  40 
degrees  Kelvin,  the  thermometers  reacted  almost  instantaniously  to 
changes  in  the  heater  coil  power.  However,  at  temperatures  above  ap¬ 
proximately  150  degrees  Kelvin,  the  thermometers  took  from  one  to  three 
seconds  to  'see'  heater  coil  power  changes.  This  was  accounted  for  by 
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the  change  in  the  thermalconductivity  of  the  copper  sample  holder 
[Ref.  6].  The  automatic  temperature  controller  has  to  account  for  this 
change  in  thermalconductivity  in  its  control  of  the  temperature. 

User  Imposed  Requirements 

Besides  the  requirements  Imposed  on  the  automatic  temperature  con¬ 
troller  by  the  experimental  environment  and  the  temperature  measurement 
and  adjustment  techniques,  certain  user  requirements  were  also  imposed. 
The  user  wanted  the  automatic  temperature  controller:  (1)  to  be  com¬ 
patible  with  the  existing  experimental  equipment,  (2)  to  have  an  op¬ 
tional  manual  mode  of  operation  not  under  the  control  of  the  LSI-11 
computer  system,  and  (3)  to  be  usable  on  similar  projects  needing 
temperature  control  that  may  occur  in  the  future. 

The  first  of  these  requirements,  compatibility  with  the  existing 
experimental  equipment,  dictates  that  the  automatic  temperature  con¬ 
troller  be  able  to  communicate  with  the  LSI-11  computer  system,  the 
thermometers,  and  the  heater  coil  in  the  sample  holder.  In  anticipation 
of  an  automatic  temperature  controller,  one  DRV-11  parallel  interface 
card  was  reserved  on  the  LSI-1 1  for  use  by  this  controller.  It  was, 
therefore,  required  that  the  automatic  temperature  controller  be  able 
to  interface  with  the  DRV-11  in  order  to  establish  a  communication  link 
with  the  LSI-11. 

The  thermometer  interfacing  requirements  were  defined  in  the  pre¬ 
vious  sections.  However,  compatibility  with  the  existing  system  did 
impose  an  additional  requirement.  The  automatic  temperature  controller 
could  not  interfere  with  the  data  acquisition  process  of  the  LSI-11 
computer . 
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The  automatic  temperature  controller  is  also  required  to  interface 
with  the  heater  coil.  Again,  in  anticipation  of  the  automatic  tempera¬ 
ture  controller,  a  Hewlett-Packard  Model  6130C  Digital  Voltage  Source 
was  procurred  by  the  Materials  Laboratory.  This  voltage  source,  like 
the  Artronix  analog  controller,  can  supply  the  heater  coil  with  a  0  to 
50  volt  output  at  1  ampere.  However,  this  voltage  source  has  a  digital 
interface  compatible  with  microcircuit  logic  levels.  Therefore,  the 
automatic  temperature  controller  was  required  to  interface  with  the  HP 
6130C. 

The  second  requirement  was  to  have  an  optional  manual  mode  of 
operation  not  under  the  control  of  the  LSI-11  computer  system.  This 
required  that  the  automatic  temperature  controller  be  able  to  communi¬ 
cate  with  the  user  independent  of  the  LSI-11.  To  meet  this  requirement, 
it  was  established  that  the  automatic  temperature  controller  would  need 
an  alphanumeric  display  so  that  the  controller  could  prompt  the  user  and 
so  that  the  user  could  monitor  the  status  of  the  controller.  In  addi¬ 
tion,  the  controller  needed  an  input  medium,  a  keypad,  so  that  the  user 
could  provide  the  information  to  the  controller  that  would  normally  be 
provided  by  the  LSI-11. 

The  third  user  imposed  requirement  was  for  the  automatic  tempera¬ 
ture  controller  to  be  usable  on  future  projects  requiring  temperature 
control.  This  requirement  established  that  the  automatic  temperature 
controller  would  need  to  be  easily  modifiable.  Therefore,  it  was  de¬ 
cided  that  the  controller  would  be  microprocessor  based. 

Summary 

This  chapter  defined  the  requirements  on  the  automatic  temperature 
controller.  Based  upon  the  discussions  on  the  experimental  environment. 


on  the  temperature  measurement  and  adjustment  techniques,  and  on  the 
user  Imposed  requirements,  it  vas  established  that  the  automatic  temper¬ 
ature  controller  would  be  a  microprocessor  based  system.  It  would,  at 
a  minimum,  have  to  interface  with  the  user,  the  LSI-11  computer  system, 
all  three  of  the  thermometers,  and  the  heater  coil.  Based  upon  these 
requirements,  it  was  possible  to  begin  the  design  of  the  hardware  and 
of  the  software  needed  to  make  the  automatic  temperature  controller  a 
reality.  The  next  two  chapters  describe  this  design. 
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III.  Hardware  Design  and  Implementation 


Once  the  requirements  of  the  automatic  temperature  controller  were 
defined,  it  was  possible  to  begin  the  hardware  design  and  Implementation. 
This  chapter  describes  the  design  of  each  major  component  of  the  hard¬ 
ware:  the  microprocessor  system,  the  thermometer  interface,  the  heater 
interface,  the  LSI-1 1  computer  interface,  the  display  interface,  and  the 
switch  and  keypad  interface.  Each  of  the  design  decisions  made  were 
related  to  the  requirements  defined  in  the  previous  chapter. 

Hardware  Design  Overview 

Before  designing  the  hardware  for  the  automatic  temperature  con¬ 
troller,  a  philosophy  for  the  design  was  established.  Many  Important 
considerations  needed  to  be  addressed.  However,  there  was  no  basis  in 
the  requirements  to  cover  these  areas.  Two  questions,  in  particular, 
were  raised  at  this  time:  should  the  controller  be  built  from  micro¬ 
computer  boards  available  on  the  market  or  should  it  be  built  from 
scratch,  and  what  would  be  the  time  required  for  the  microprocessor  to 
perform  all  the  operations  required  of  it. 

The  question  of  building  the  controller  from  microcomputer  boards 
or  from  scratch  generated  many  thoughts.  While  the  cost  of  the  pre¬ 
built  computer  boards  was  higher  than  what  a  system  built  from  scratch 
would  cost,  the  pre-bullt  boards  would  eliminate  the  time  required  for 
board  layout,  bus  timing  considerations,  and  some  of  the  software 
writing.  One  of  the  main  disadvantages,  however,  was  that  the  electronic 
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hardware  needed  to  build  a  temperature  controller  came  on  boards  that 
also  contained  hardware  not  needed.  Therefore,  a  significant  part  of 
the  final  cost  of  the  temperature  controller  would  be  for  electronics 
that  would  never  be  used.  The  scratch  systos,  on  the  other  hand,  gave 
the  freedom  to  configure  the  controller  with  only  the  electronics  that 
were  absolutely  needed  and  with  a  choice  of  any  electronic  chips  avail¬ 
able.  Since  the  automatic  temperature  controller  would  be,  at  this  time, 
an  untried  design,  there  was  s  possibility  that  the  hardware  acquired 
would  not  do  the  job.  With  this  in  mind,  it  was  hard  to  Justify  the 
expense  of  the  pre-built  computer  boards.  Therefore,  it  was  decided 
that  the  hardware  for  the  automatic  temperature  controller  wo-ild  be 
built  from  scratch. 

The  second  question  asked  how  much  time  the  microprocessor  could 
spend  performing  all  its  required  operations.  This  question,  however, 
was  Impossible  to  answer  at  this  time,  since  the  required  operations, 
the  microprocessor,  the  clocking  rate,  and  other  variables  were  not  yet 
defined.  But  this  was  a  question  that  needed  to  be  addressed.  The 
answer  to  this  question  would  determine  whether  housekeeping  chores  such 
as  display  updating  and  switch  contact  debouncing  would  be  done  in  soft¬ 
ware  or  in  hardware.  It  would  also  determine  how  fast  the  microprocessor 
and  memory  had  to  be.  Since  there  was  no  reasonable  answer  to  this 
question,  it  was  decided  that  all  housekeeping  operations  that  could 
easily  be  implemented  in  hardware  would  not  be  implemented  in  the  soft¬ 
ware.  In  this  way,  the  microprocessor  would  have  some  extra  time,  if 
needed,  to  perform  its  primary  function  —  control  temperature.  A  de¬ 
cision  was  also  made  about  the  speed  of  the  microprocessor  and  memory. 

The  slower  speed  chips  were  to  be  used  where  a  choice  was  available. 


22 


However,  the  design  was  also  to  be  compatible  with  the  faster  devices. 

In  this  way,  substitutions  could  quickly  be  made  if  during  testing  it 
mbs  determined  that  the  faster  devices  were  required. 

Microprocessor  System 

After  determining  the  design  philosophy,  the  microprocessor  system 
was  designed,  this  system  involved  three  components:  the  micro¬ 
processor,  the  memory,  and  the  interfaces.  The  first  step  in  the  design 
of  the  microprocessor  system  was  chosing  a  microprocessor.  IXie  to  a 
greater  familiarity  with  Motorola  products,  it  was  decided  that  a 
Motorola  microprocessor  would  be  used.  Of  the  microprocessor  and  micro¬ 
computer  chips  produced  by  Motorola,  the  MC6809  microprocessor  seemed 
to  be  best  suited  for  use  on  the  automatic  temperature  controller. 

This  microprocessor  has  many  features  that  made  it  look  attractive  for 
this  design:  an  explicit  multiply  instruction,  two  stack  pointers,  and 
two  index  pointers.  In  addition,  the  MC6809  has  some  16-bit  capability 
that  enables  it  to  add,  subtract,  load,  and  store  a  16-bit  operand. 
Another  feature  of  the  MC6809  is  its  enhanced  indexed  addressing  capa¬ 
bility.  This  enables  this  microprocessor  to  do  Indexed  and  indirect 
addressing  from  all  of  the  pointer  registers:  the  stack  pointers,  the 
index  pointers,  and  the  program  counter.  While  all  of  these  features 
were  appreciated  during  the  software  development,  the  MC6809  also  has 
features  that  were  important  during  the  hardware  design.  The  MC6809 
has  an  on-chip  clock  which  produces  all  the  clocking  signals  needed  for 
the  microprocessor  atvi  the  control  bus.  Therefore,  the  only  external 
clocking  hardware  needed  was  a  crystal  to  control  the  speed  of  the  on- 
chip  clock.  An  additional  liardware  feature  of  the  MC6809  microprocessor 


23 


is  the  three  interrupt  lines:  the  non-oaskable  interrupt,  the  normal 
Interrupt,  and  the  fast  interrupt  line.  The  uses  of  each  of  these  lines 
trill  be  described  later  In  this  report.  [Ref.  7] 

The  next  component  of  the  microprocessor  system  is  the  memory. 

Ttio  forms  of  memory  were  used:  Read  Only  Memory  (ROM)  for  the  program 
to  reside  in,  and  Random  Access  Memory  (RAM)  for  the  data  to  reside  in. 
Since  it  was  not  known  how  much  memory  would  be  needed,  an  arbitrary 
choice  of  IK  bytes  of  RAM  and  4K  bytes  of  ROM  was  made.  During  the 
software  development,  however,  it  was  discovered  that  the  4K  bytes  of 
ROM  were  too  small  to  hold  the  controller  program.  In  order  to  allow 
enough  memory  for  the  program,  10K  bytes  of  ROM  was  required.  Unfor¬ 
tunately,  the  hardware  was  already  being  built  during  the  software 
development  and  the  number  of  sockets  available  was  limited.  Therefore, 
it  was  necessary  to  use  some  of  the  RAM  sockets  to  Increase  the  size  of 
ROM.  The  final  amount  of  memory  used  was  10K  bytes  of  ROM  and  640  bytes 
of  RAM.  Once  the  amount  of  memory  to  be  used  was  known,  the  specific 
chips  needed  to  implement  this  memory  requirement  were  determined.  The 
RAM  chip  selected  was  the  Motorola  MCM6810  RAM.  This  was  a  common  de¬ 
vice  and  relatively  cheap.  The  MCM6810  contains  128  bytes  and,  there¬ 
fore,  5  of  these  devices  were  needed  to  implement  the  requirement  of 
640  bytes  of  RAM.  Since  it  was  anticipated  that  many  changes  would 
have  to  be  made  to  the  controller  program,  an  Erasable  Programmable 
ROM  (EPROM)  was  selected  for  the  program  to  reside  in.  The  chip  selected 
was  the  MCM2716.  Again,  this  was  a  common  chip  and  could  be  obtained 
from  many  different  manufacturers.  Each  2716  contains  2K  bytes.  There¬ 
fore,  the  total  number  of  devices,  both  RAM  and  EPROM  chips,  needed  was 
ten.  [Ref.  7] 
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Once  Che  microprocessor  and  memory  chips  were  established,  the 
remaining  component  of  the  microprocessor  system,  the  interfaces,  had 
to  be  established.  To  make  both  the  hardware  and  the  software  designs 
simpler,  all  the  communication  between  the  microprocessor  system  and 
the  outside  world  was  to  be  done  through  Peripheral  Interface  Adapters 
(PIA),  A  standard  Motorola  compatible  PIA  is  the  MC6821.  This  device 
features  two  8-bit  parallel  ports  and  four  control  lines  on  the  periph¬ 
eral  side  (Fig.  6).  A  detailed  description  of  the  MC6821  PIA  and  its 
operation  is  contained  in  Reference  8. 

Same  atypical  design  decisions  were  made  in  regard  to  the  addressing 
of  the  PIA.  As  shown  in  Figure  7,  two  register  select  lines  (RSI  and 
RSO)  are  needed  to  address  the  six  internal  registers  of  the  MC6821. 
Typically,  these  lines  are  connected  to  the  two  least  significant  address 
lines  of  the  microprocessor  (Al  and  AO  respectively).  These  connections 
place  control  register  A  between  the  A  and  B  peripheral  data  registers. 

In  order  to  make  full  use  of  the  16-bit  load  and  store  capability  of  the 
MC6809  microprocessor,  however,  it  was  desirable  to  locate  the  two 
peripheral  data  registers  in  adjacent  memory  locations.  This  was  done 
by  specifying  that  RSI  should  be  connected  to  the  least  significant 
address  line  (AO)  and  that  RSO  should  be  connected  to  one  of  the  other 
address  lines.  A  further  discussion  of  the  PIA  addressing  is  contained 
in  the  summary  of  the  hardware  design. 

Thermometer  Interface 

Once  the  microprocessor  systea  was  established,  each  of  the  inter¬ 
faces  had  to  be  designed.  The  first  of  these  interfaces  is  the  ther¬ 
mometer  interface.  In  order  to  meet  the  requirements  stated  in  Chapter 
II,  this  interface  has  to  enable  the  microprocessor  system  to  measure 
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Figure  7.  MC6821  Peripheral  Interface  Adapter  tPiA)  Register  selection 


the  signals  from  all  three  of  the  thermometers  present  In  the  sample 
bolder.  Before  this  interface  could  be  designed,  however,  one  Important 
design  decision  had  to  be  made. 

As  was  stated  in  the  last  chapter,  two  different  schenes  could  be 
used  for  biasing  the  control  thermometers  (the  carbon-glass  and  platinum 
resistors)  and  measuring  the  resulting  signals:  applying  a  constant 
voltage  and  measuring  the  resulting  current,  or  applying  a  constant 
current  and  measuring  the  resulting  voltage.  A  decision  was  made  at 
this  point  as  to  which  of  these  two  schenes  to  use.  In  examining  the 
data  sheet  on  the  carbon-glass  thermometer,  it  was  found  that  the  maxi¬ 
mum  recommended  operating  voltage  was  only  10  millivolts.  In  addition, 
the  resistance  of  this  thermometer  changes  by  two  orders  of  magnitude 
over  its  usable  range  (Fig.  3).  This  presented  problems  with  the  con¬ 
stant  current  biasing  scheme.  Namely,  designing  a  constant  current 
source  that  could  remain  constant  with  such  a  large  variation  In  load 
resistance.  Similar  problems  were  also  evident  with  the  platinum  re¬ 
sistor.  The  use  of  a  constant  voltage  source  scheme,  however,  presented 
very  few  problems.  Therefore,  it  was  decided  that  the  control  thermom¬ 
eters  were  to  be  biased  with  a  10  millivolt  constant  voltage  source 
(Fig.  8)  and  the  resulting  current  was  to  be  measured. 

The  next  obvious  step  was  to  devise  a  method  of  measuring  the 
current  through  each  of  the  control  thermometers.  This  problem  was 
solved  by  examining  a  classical  inverting  amplifier  circuit  (Fig.  9). 

The  equation  for  the  output  voltage  is  given  by: 

Vo  -  -  Rf/Ri  *  Vi  (3) 
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Figure  8.  Control  Thermometer  Constant  Voltage  Biasing  Source 


Figure  9.  Classical  Inverting  Amplifier 
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By  considering  Che  Input  voltage  to  be  the  constant  voltage  source  and 
the  Input  resistance  to  be  the  resistance  of  the  control  thermometer. 

It  was  evident  that  the  output  voltage  was  equal  to  the  current  through 
the  control  thermometer  multiplied  by  the  feedback  resistance.  The 
voltage  could  then  be  converted  to  a  digital  signal  by  using  a  standard 
analog-to-digital  (A/D)  converter.  By  modifying  the  inverting  amplifier 
circuit  as  shown  in  Figure  10,  the  amplifier  gain  can  be  programmed  and 
the  input  switched  from  one  control  thermometer  to  another. 

The  only  remaining  thermometer  to  be  interfaced  to  the  microproc¬ 
essor  system  was  the  silicon  diode.  As  stated  earlier,  this  thermometer 
produced  a  voltage  signal  and  therefore  could  be  connected  directly  to 
an  A/D  converter.  However,  the  user  was  concerned  about  possible  loading 
effects  of  the  automatic  temperature  controller  on  the  measurement  of 
the  silicon  diode  voltage  by  the  AHEEDAS  system.  Therefore,  it  was  de¬ 
cided  that  the  input  from  the  silicon  diode  would  be  buffered  by  a 
voltage  follower  amplifier  stage.  In  addition,  to  insure  that  the  auto¬ 
matic  temperature  controller  did  not  affect  voltage  measurement  by  the 
AHEEDAS,  a  Coto-coil  Model  U-20146  Relay  was  also  placed  on  the  input  to 
the  automatic  temperature  controller.  This  relay  had  an  off-state  im¬ 
pedance  of  100  gigaohms  [Ref.  9]  and  would  only  be  closed  during  times 
when  the  automatic  temperature  controller  needed  to  monitor  the  silicon 
diode  voltage  (while  changing  temperature).  In  addition  to  isolating 
the  silicon  diode  from  the  automatic  temperature  controller,  it  was 
also  desirable  to  have  the  same  programmable  gain  capability  to  measure 
the  diode  voltage  as  was  already  established  for  the  control  thermom¬ 
eters.  This  was  accomplished  by  feeding  the  output  of  the  voltage 
follower  through  an  analog  switch  and  an  input  resistor  and  into  the 
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Figure  10.  Modified  Inverting  Amplifier 

programmable  gain  amplifier  of  the  current  sensing  stage.  Therefore, 

*he  output  signal  from  each  of  the  thermometers  could  be  monitored  at 
the  output  of  the  programmable  gain  amplifier  by  closing  the  appropriate 
switches. 

After  determining  how  the  signals  from  each  of  the  thermometers 
could  be  detected,  it  was  time  to  generalize  the  detection  scheme  so 
that  the  automatic , temperature  controller  could  be  used  on  future  proj¬ 
ects.  Since  it  was  possible  for  a  future  project  to  require  more  than 
three  thermometers  and  since  it  was  also  possible  that  these  thermometers 
could  produce  either  voltage  or  current  signals,  the  design  of  the 
automatic  temperature  controller  was  modified  to  account  for  these 
possibilities.  An  arbitrary  choice  of  a  maximum  of  four  thermometers 
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(a  power  of  two)  was  made.  By  adding  relays  to  both  the  voltage  signal 
Inputs  and  the  current  signal  inputs,  the  original  design  could  handle 
the  additional  thermometer. 

One  further  modification  was  made  to  the  original  design.  It  was 
decided  that  there  may  be  times  when  the  input  to  the  A/D  converter 
should  be  zeroed.  Therefore,  one  additional  stage  was  added  to  the 
design.  This  stage  contained  a  unity  gain  inverting  amplifier  and  a 
switch.  With  the  switch  closed,  the  amplifier  simply  inverted  the  in¬ 
verted  signal  from  the  programmable  gain  stage.  With  the  switch  open, 
the  output  of  the  last  stage  was  zeroed.  The  final  design  of  the  de¬ 
tection  section  of  the  thermometer  interface  is  shown  in  Figure  11. 

The  components  "used  to  build  the  detection  section  of  the  ther¬ 
mometer  interface  were  very  important  to  the  success  of  the  automatic 
temperature  controller.  Since  any  errors  in  detection  of  the  thermom¬ 
eter  signals  would  undoubtedly  propagate,  the  parts  chosen  had  to 
minimize  these  errors.  Because  of  the  small  signals  that  had  to  be 
detected,  many  of  the  problems  associated  with  operational  amplifier 
design  became  extremely  important:  input  bias  current,  input  impedance, 
and  gain.  The  device  that  seemed  to  have  the  best  specifications  was 
the  LF355A  JFET-input  operational  amplifier.  This  device  has  an  input 
impedance  of  100  megaohms  and  an  input  bias  current  of  less  than  50 
picoamperes  [Ref.  10].  In  addition  to  the  operational  amplifier  chosen, 
all  potentiometers  in  the  detection  circuit  were  specified  to  be  15- 
tura  potentiometers  in  order  that  each  could  be  precisely  set. 

Once  all  the  design  decisions  were  made  about  the  detection  cir¬ 
cuitry,  the  remaining  component  of  the  thermometer  interface,  the  A/D 
converter,  had  to  be  specified.  As  stated  in  Chapter  II,  the  worst 


31 


case  for  thermometer  input  signal  detection  was  one  part  in  30,000. 
Therefore,  a  16-bit  A/D  converter  was  needed  in  order  to  give  the  re¬ 
quired  precision.  Very  few  16-bit  A/D  converters  are  available,  how¬ 
ever.  One  A/D  converter,  the  Intersil  ICL7104-16,  appeared  to  be 
appropriate  for  use  in  the  thermometer  interface.  The  ICL7104-16,  one 
of  the  fastest  16-bit  converters  available,  could  do  a  conversion  in 
587  milliseconds  [Ref.  11].  This  seesned  like  it  would  be  fast  enough 
to  give  an  accurate  sample  of  the  thermometer  signal,  yet  slow  enough 
to  allow  the  microprocessor  to  do  its  processing  before  the  next  sample 
became  available.  The  ICL7104-16  did  require  some  external  circuitry, 
however.  In  particular,  an  external  voltage  reference  was  required. 

The  reference  voltage  circuit  is  shown  in  Figure  12. 

To  determine  what  the  A/D  reference  voltage  should  be,  the  input 
signal  strengths  from  each  of  the  thermometers  were  examined.  It  was 
determined  that  the  platinum  thermometer  would  produce  the  maximum 
signal  that  the  A/D  converter  would  have  to  handle.  The  current  passing 
through  this  thermometer  and  into  the  detection  section  of  the  ther¬ 
mometer  interface  produced  a  maximum  voltage  of  7.14  volts  at  the  input 
of  the  A/D.  Therefore,  it  was  determined  that  a  full  scale  reading  of 
8  volts  on  the  A/D  converter  would  be  adequate  for  the  automatic  tem¬ 
perature  controller.  This  corresponded  to  a  reference  voltage  of  4 
volts. 

After  the  A/D  converter  was  specified,  the  only  remaining  task  to 
Interface  the  thermometers  to  the  microprocessor  system  was  to  make  the 
appropriate  connections  to  the  PIA.  In  this  case  two  PIAs  were  re¬ 
quired:  one  to  handle  the  16  data  lines  of  the  A/D  converter,  and 
another  to  handle  the  lines  to  the  analog  switches,  relays,  and  A/D 
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Figure  12.  A/D  Reference  Voltage  Circuit 

control  and  status  pins.  These  connections  are  explained  in  more  detail 
in  Appendix  C. 

Heater  Coil  Interface 

After  the  thermometer  interface  design  was  completed,  the  remaining 
interface  to  the  sample  holder,  the  heater  coil  interface,  had  to  be 
designed.  The  heater  coil  was  required  to  be  driven  by  the  HP  6130C 
Digital  Voltage  Source.  Therefore,  this  voltage  source  had  to  be  inter¬ 
faced  to  the  microprocessor  system.  Before  this  interface  could  be 
completed,  however,  an  examination  of  the  HP  6130C  was  needed. 

The  HP  6130C  Digital  Voltage  Source  is  a  complete  digital-to- 
analog  link  between  a  computer  and  any  application  requiring  a  fast. 


accurate  source  of  dc  power.  The  output  voltage  is  controlled  by  17 
digital  data  inputs  applied  to  the  HP  6130C  via  a  ribbon  connector  on 
the  rear  panel.  In  addition,  overcurrent  protection  is  provided  by  a 
current  latch  circuit  which  can  be  externally  programmed  to  one  of 
eight  values  between  2  percent  and  100  percent  of  the  units  rated  out¬ 
put  of  1  ampere  (Fig.  13).  The  current  limit  and  voltage  data  is 
latched  into  the  HP  6130C  by  a  gating  signal  provided  by  the  computer. 
The  HP  6130C  also  provides  signals  back  to  the  computer.  The  status 
outputs  of  the  HP  6130C  inform  the  computer  of  overload  conditions, 
current  limit  latch  status,  and  busy  states.  [Ref.  12] 

In  order  to  complete  the  heater  coll  interface,  each  of  the  lines 
mentioned  in  the  previous  paragraph  had  to  be  connected  to  the  micro¬ 
processor  system.  This  required  the  use  of  2  PIAs:  one  to  handle  16 
of  the  voltage  data  lines,  and  one  side  of  another  PIA  to  handle  the 
remaining  voltage  data  line,  the  current  limit  data  lines,  and  the 
status  lines  from  the  HP  6130C  (Fig.  14) .  The  gating  signal  was  pro¬ 
vided  by  using  an  SN74LS123  monostable  in  conjunction  with  one  of  the 
control  lines  from  the  PIAs.  These  connections  completed  the  heater 
coil  interface  design  and,  therefore,  all  the  connections  between  the 
sample  holder  and  the  automatic  temperature  controller. 

LSI-11  Computer  Interface 

The  LSI-11  computer  interface  was  the  only  remaining  interface  to 
the  experimental  apparatus.  But,  before  this  interface  could  be  de¬ 
signed,  the  information  that  would  be  exchanged  between  the  LSI-11 
computer  and  the  automatic  tenperature  controller  had  to  be  determined. 
Since  it  was  known  that  the  LSI-11  contained  the  voltage/temperature 
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Figure  13.  HP  6130C  Current  Limit  Data  Format 

• 

conversion  table  for  the  silicon  diode  thermometer,  the  LSI-11  could 
transmit  either  the  desired  temperature  value  or  the  corresponding 
voltage  to  the  automatic  temperature  controller.  Sending  the  voltage 
value,  however,  would  eliminate  the  need  for  the  temperature  controller 
to  also  have  a  voltage/temperature  conversion  table.  Therefore,  data 
only  needed  to  be  transmitted  from  the  LSI-11  to  the  automatic  temper¬ 
ature  controller.  The  only  Information  the  LSI-11  required  of  the 
automatic  temperature  controller  was  when  the  temperature  had  been  set 
to  the  desired  value.  This  could  be  accomplished  by  using  a  single 
line. 

After  the  signal  interface  was  defined,  the  next  task  in  the  design 
of  the  computer  interface  was  to  identify  how  the  LSI-11  communicated 
to  the  outside  world.  This  was  done  through  a  DRV-11  parallel  inter¬ 
face  card  [Ref.  13].  The  DRV-U  is  very  similar  to  the  MC6821  PIA  and 
therefore  the  connections  between  these  two  devices  were  fairly  straight- 
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forward.  The  LSI-11  could  transmit  data  8-bits  or  16-bits  at  a  time. 

It  was  decided  to  send  the  data  16-bits  at  a  time,  thereby  increasing 
the  speed  of  the  data  transfer.  Two  control  lines  on  the  PIA  directly 
interfaced  with  two  of  the  control  lines  on  the  DRV-11.  Therefore, 
the  handshaking  signals  needed  to  control  the  data  exchange  could 
easily  be  established.  The  remaining  signal,  the  temperature  set  sig¬ 
nal,  was  to  be  generated  by  the  automatic  temperature  controller  by 
using  one  of  the  two  remaining  control  lines  of  the  PIA.  This  line 
could  also  be  connected  directly  to  the  DRV-11. 

These  connections  between  the  MC6821  PIA  and  the  DRV-11  completed 
the  design  of  the  Interface  between  the  microprocessor  system  and  the 
LSI-11  computer. 

Display  Interface 

Once  the  Interfaces  to  the  existing  experimental  equipment  and  the 
LSI-11  computer  were  designed,  the  interfaces  to  the  input  and  output 
devices  of  the  automatic  temperature  controller  had  to  be  designed. 

The  first  of  these  devices  was  the  display.  As  was  stated  in  the  re¬ 
quirements,  the  display  needed  to  be  an  alphanumeric  display  so  that 
the  user  could  be  prompted  for  input  and  monitor  the  execution  of  the 
controller  program.  It  was  decided  that  a  16-digit  display  would  be 
adequate  for  this  purpose.  To  meet  this  requirement,  the  Hewlett- 
Packard  HDSP-6508  16-segment  Alphanumeric  LED  Display  was  chosen.  The 
HDSP-6508  is  a  low  power  device  with  common  cathode  digit  connections 
and  common  anode  segment  connections.  In  addition,  the  HDSP-6508  is 
an  eight  digit  device  [Ref.  14].  Therefore,  two  of  these  devices  were 
needed  to  form  a  sixteen  digit  display.  It  was  clear  that  both  display 
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drivers  and  data  multiplexors  would  be  needed  In  order  to  Integrate  the 
HDSP-6508  Into  the  design  of  the  temperature  controller.  Before  work 
mss  begun  on  designing  this  circuitry,  an  overall  look  at  the  display 
interface  was  required. 

With  the  design  philosophy  in  mind,  it  was  decided  that  the 
character  decoding  should  be  done  in  hardware  rather  than  in  software. 
This  would  relieve  quite  a  bit  of  the  work  burden  placed  on  the  micro¬ 
processor.  Since  the  simplest  way  to  Implement  the  character  decoding 
in  hardware  was  to  use  a  ROM  look-up  table,  a  character  set  could  be 
devised  that  would  further  reduce  the  work  burden  on  the  microprocessor. 
By  assigning  the  hex  codes  00  through  OF  to  the  hex  digits  0  through  F, 
hexadecimal  numeric  data  could  be  sent  directly,  digit-by-digit ,  to  the 
display  port.  The  complete  character  set  is  shown  in  Figure  15. 

Once  it  was  determined  how  the  characters  would  be  decoded,  the 
next  step  was  to  determine  how  the  microprocessor  would  transmit  char¬ 
acters  to  the  display.  One  way  was  to  use  one  PIA.  Since  the  MC6821 
PIA  has  two  separate  ports,  one  port  could  be  used  for  outputting  a 
character  and  the  other  could  be  used  for  identifying  where  in  the 
display  the  character  should  be  placed.  Other  methods  were  examined, 
but  none  were  as  esthetically  pleasing  as  this  method.  Therefore,  it 
was  decided  to  use  only  one  PIA  to  interface  the  microprocessor  system 
with  the  display. 

Up  to  this  point,  it  was  determined  that  the  microprocessor  system 
would  interface  with  the  HDSP-6508  display  through  one  PIA  and  that  the 
characters  would  be  decoded  In  hardware.  The  next  step  was  to  design 
the  additional  display  interface  hardware  that  would  make  it  all  work. 
Since  only  one  digit  could  appear  at  the  output  ports  of  the  PIA  at  a 
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Figure  15.  Automatic  Temperature  Controller  Character  Set 

tine,  it  was  necessary  to  have  some  sort  of  storage  capability  In  the 
display  Interface.  If  this  was  not  done,  the  microprocessor  would  be 
required  to  constantly  update  the  display.  Therefore,  an  MCM6810  RAM 
was  included  in  this  interface  and  circuitry  was  developed  so  that  when 
the  microprocessor  output  a  character  to  the  FIA,  the  character  would 
be  stored  In  the  RAM.  After  this  circuitry  was  developed,  additional 
circuitry  was  designed  that  continuously  read  each  of  the  characters 
from  RAM,  decoded  these  characters,  and  drove  the  proper  digits  and 
segments  corresponding  to  each  of  these  characters.  A  complete  diaeram 
of  the  display  interface  is  shown  In  Figure  16. 
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Figure  16.  Display  Interface 


Switch  and  Keypad  Interface 


Once  the  interface  to  the  display  had  been  designed,  the  remaining 
items,  the  Input  devices,  had  to  be  interfaced  to  the  microprocessor 
system.  The  keypad,  as  stated  In  Chapter  II,  was  required  so  that  the 
user  could  enter  data  into  the  controller.  In  addition,  two  other  items 
were  included  in  the  design  of  the  automatic  temperature  controller: 
a  toggle  switch,  and  a  rotary  switch.  The  toggle  switch  was  used  to 
indicate  to  the  microprocessor  system  whether  the  controller  was  to  be 
used  in  an  automatic  mode  under  the  control  of  the  LSI-11  or  in  a  manual 
mode  under  control  of  the  user.  The  rotary  switch  was  used  to  select 
the  thermometer  to  be  used  for  control.  Since  four  thermometers  were 
allowed  for  in  the  design  of  the  thermometer  interface,  four  positions 
of  the  rotary  switch  would  correspond  to  each  of  these  thermometers. 

In  addition,  one  other  position  was  used  to  indicate  to  the  micro¬ 
processor  system  that  the  control  thermometer  was  to  be  selected  by  the 
automatic  temperature  controller.  The  keypad,  the  toggle  switch,  and 
the  rotary  switch,  therefore,  all  had  to  be  interfaced  to  the  micro¬ 
processor  uystem  to  make  the  hardware  design  complete. 

Since  the  keypad,  the  toggle  switch,  and  the  rotary  switch  are  all 
mechanical  devices,  the  signals  from  these  devices  contained  noise  due 
to  bouncing  of  the  mechanical  contacts.  Therefore,  these  signals  had 
to  be  debounced.  Two  possible  methods  of  signal  debouncing  were 
available:  software  debouncing  and  hardware  debouncing.  Again,  the 
hardware  approach  was  chosen  so  as  not  to  burden  the  software  with 
processes  that  could  easily  be  done  in  hardware.  Therefore,  the  next 
task  was  to  choose  a  signal  debouncer.  The  Motorola  MC14490  Hex 
Contact  Bounce  Eliminator  was  chosen  to  perform  this  function.  This 
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device  Is  capable  of  debouncing  six  signal  lines.  Also,  each  input  to 
this  device  is  equipped  with  an  internal  pull-up  resistor  thereby 
eliminating  the  need  for  external  pull-up  resistors.  [Ref.  15]  A 
total  of  fourteen  lines  —  eight  from  the  keypad,  five  from  the  rotary 
switch,  and  one  from  the  toggle  switch  —  needed  to  be  debounced. 
Therefore,  three  MC14490  packages  were  required. 

After  determining  how  the  signals  from  the  input  devices  could  be 
debounced,  the  next  task  was  to  interface  these  lines  to  the  micro¬ 
processor.  Again,  the  MC6821  PIA  was  used  to  perform  this  function. 

One  data  port  of  the  PIA  was  devoted  to  the  eight  lines  from  the  key¬ 
pad.  The  remaining  port  was  used  to  interface  the  lines  from  the  toggle 
and  rotary  switches.  The  only  remaining  circuitry  that  had  to  be  de¬ 
veloped  was  the  circuitry  to  indicate  to  the  microprocessor  that  data 
is  available  at  the  input  ports  of  the  PIA.  This  was  accomplished  by 
using  exclusive-or  gates  connected  to  the  data  lines  from  the  keypad 
and  switches.  Any  change  in  switch  status  or  any  depression  of  a  key 
would  generate  a  change  in  state  of  the  exclusive-or  gate  output.  By 
connecting  this  signal  to  one  of  the  control  lines  of  the  PIA,  the 
microprocessor  could  be  alerted  to  new  data  at  the  PIA. 

A  complete  diagram  of  the  switch  and  keypad  interface  is  shown  in 
Figure  17. 

Summary  of  Hardware  Design 

At  this  point  in  the  hardware  design,  the  interfaces  had  been 
designed  for  each  of  the  peripheral  devices:  the  thermometers,  the 
heater  coil,  the  LSI-11  computer,  the  display,  the  keypad,  and  the 
switches.  All  of  these  interfaces  required  a  total  of  7  MC6821  PIAs. 
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Added  to  the  7  PIAs  were  the  10  memory  chips  of  the  microprocessor 
system  yielding  a  total  of  17  devices  that  were  to  be  placed  on  the 
address  and  data  busses  of  the  MC6809  microprocessor.  To  enable  the 
microprocessor  to  drive  each  of  these  devices,  both  the  address  and 
data  busses  were  buffered  with  standard  TTL  buffer  chips.  This  not 
only  enabled  the  MC6809  microprocessor  to  drive  the  devices  designed 
to  be  on  the  busses,  but  also  allowed  for  possible  expansion  of  the 
microprocessor  system. 

The  final  task  of  the  hardware  design  was  to  decide  where  the 
memory,  input/output  ports,  and  input/output  control  registers  would 
reside  in  the  address  space  (Fig.  18).  The  640  bytes  of  RAM  were 
chosen  to  reside  in  locations  0000  to  027F  and  the  10K  bytes  of  ROM 
were  chosen  to  reside  in  locations  D800  to  FFFF.  This  left  only  the 
PIA  data  and  control  registers  to  be  placed  in  the  address  space  of 
the  microprocessor.  It  was  decided  to  place  all  the  PIA  data  register 
in  contiguous  memory  locations  beginning  with  1000  and  to  place  all 
the  PIA  control  registers  in  contiguous  memory  locations  beginning 
with  1010  so  that  data  and  control  register  accesses  could  be  more 
easily  identified  during  the  hardware  testing.  To  do  this,  address 
lines  A4  and  A0  were  connected  to  RS0  and  RSI  of  the  PIAs  and  address 
lines  A1 ,  A2,  and  A3  were  decoded  to  provide  the  chip  selects  for  each 
of  the  7  PIAs. 

Address  decoding  was  done  using  SN74LS138  Decoders.  While  a 
fully-decoded  addressing  scheme  was  not  used,  ample  additional  de¬ 
coder  outputs  were  provided  so  that  an  additional  2K  bytes  of  ROM, 

384  bytes  of  RAM,  and  one  PIA  could  be  added  to  the  existing  hardware 
with  no  additional  decoding  hardware  being  needed. 
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Memory  Locations  Device 


0000  - 

007  F 

RAMI 

0080  - 

00  FF 

RAM2 

0100  - 

017  F 

RA113 

oiao  - 

01FF 

RAM4 

0200  - 
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1000  - 

1001 

PIA1-DATA 

1002  - 

1003 

P1A2-DATA 

1U04  - 
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PIA3-DATA 

1006  - 
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PI *4- DATA 

1008  - 

1009 

PI A5- DATA 

100  A  - 

100  B 

PIA6-DATA 

100C  - 

1000 

PIA7-DATA 

1010  - 

1011 

PIAl-CO.’.TROL 

1012  - 

1013 

PIA2-C0NTR0L 

1014  - 

1015 

pia3-cc;.t;:ol 

1016  - 
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PlA4-C0.\TR0L 

1018  - 

101 A 

PI  A5-C0.'.TR0L 

101 A  - 

101H 

PlA6-C0:.Tk0L 

101C  - 

10  ID 

pia7-co:<TkjL 

D800  - 

DFFF 

EPR0M1 

E000  - 

F.7FF 

EPR0M2 

E800  - 

EFFF 

E  pro:  13 

F000  - 

F7FF 

EPROM4 

FU00  - 

FFFF 

EPROMS 

Figure  18.  Microprocessor  System  Memory  Map 

At  the  completion  of  the  hardware  design  of  the  automatic  temper¬ 
ature  controller,  all  the  hardware  components  needed  to  realize  an 
automatic  temperature  controller  were  designed.  Yet,  enough  flexibil¬ 
ity  was  left  in  the  design  to  allow  for  modifications  and  additions  to 
the  hardware.  Complete  board  layouts  and  pinout  connections  are  given 
in  Appendix  A.  Once  the  hardware  design  was  completed,  the  next  task 
was  the  development  of  the  software.  This  is  the  subject  of  the  next 
chapter. 


46 


IV.  Software  Design  and  Implementation 


After  the  automatic  temperature  controller  hardware  was  designed. 

It  was  possible  to  begin  writing  the  software  needed  to  complete  the 
controller.  This  chapter  describes  the  use  of  the  MC6809  microprocessor 
architecture,  the  supporting  routines  used  to  interact  with  the  periph¬ 
eral  equipment,  the  operating  scenario  of  the  temperature  controller, 
and  the  development  of  the  main  program  that  actually  performed  the 
temperature  control. 

Use  of  the  MC6809  Architecture 

The  first  decision  of  the  software  design  was  to  determine  how  the 
architecture  of  the  MC6809  microprocessor  was  to  be  used.  The  MC6809, 
as  stated  in  the  previous  chapter,  has  two  stack  pointers,  two  index 
pointers,  and  three  interrupt  lines.  The  two  stack  pointers,  the  hard¬ 
ware  stack  pointer  and  the  user  stack  pointer,  are  both  16-bit  registers 
which  contain  the  memory  addresses  of  the  top  of  each  of  the  respective 
data  stacks.  The  hardware  stack  is  used  by  the  microprocessor  to  save 
the  return  address  during  a  subroutine  call  and  to  save  the  processor 
status  during  an  interrupt  request.  The  hardware  stack  can  be  used  by 
the  user.  However,  care  must  be  taken  to  insure  that  all  data  that  are 
pushed  onto  this  stack  are  pulled  from  this  stack  before  a  return  from 
subroutine  or  a  return  from  interrupt  is  issued.  The  user  stack,  on 
the  other  hand,  is  completely  at  the  disposal  of  the  user.  [Ref.  7] 
Since  it  was  anticipated  that  a  great  deal  of  number  crunching  wojld 
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have  to  be  done  by  the  automatic  temperature  controller,  it  was  decided 
that  the  user  stack  should  be  used  for  performing  all  arithnetic  calcu¬ 
lations.  In  addition,  since  this  stack  would  not  be  affected  by  sub¬ 
routine  calls  and  interrupts,  the  user  stack  was  to  be  used  for  passing 
parameters  to  the  subroutines.  The  hardware  stack,  on  the  other  hand, 
was  to  be  used  for  storing  loop  counters  and  in  any  situation  where  it 
was  Inconvenient  to  use  the  user  stack. 

The  two  index  pointer  registers  are  each  16-bit  registers  that  may 
be  used  to  point  to  any  memory  location.  It  was  decided  that  these  two 
registers  could  be  used  as  pointers  to  generalize  some  of  the  software 
routines.  For  example,  a  routine  to  compare  two  numbers  could  assume 
that  these  two  pointers  pointed  to  the  numbers  to  be  compared.  There¬ 
fore,  the  numbers  themselves  would  not  have  to  be  passed  to  the  routine. 
In  addition  to  this  use,  it  was  decided  that  these  registers  could  also 
be  used  as  temporary  storage  and  as  counters  for  long  loops. 

The  final  component  of  the  MC6809  architecture  whose  use  was  to  be 
determined  was  the  interrupt  lines.  Three  interrupt  lines  are  available: 
the  normal  interrupt  line,  the  fast  interrupt  line,  and  the  non-maskable 
interrupt  line.  It  was  determined  that  the  normal  interrupt  line  was  to 
be  used  to  handle  interrupts  from  each  of  the  following  sources:  the 
HP  6130C  Digital  Voltage  Source,  the  LSI-11  computer,  the  keypad,  and 
the  switches.  This  left  the  use  of  the  fast  interrupt  line  and  the 
non-maskable  interrupt  line  to  be  determined.  It  was  not  anticipated 
that  either  of  these  lines  would  be  needed  for  the  normal  operation  of 
the  temperature  controller.  Therefore,  these  two  interrupt  lines  were 
used  to  aid  in  the  hardware  testing  of  the  automatic  temperature  con¬ 
troller.  The  non-maskable  interrupt  line  was  used  to  trigger  execution 
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of  a  program  that  would  enable  the  user  to  examine  all  of  the  register* 
of  the  microprocessor  as  they  were  at  the  time  of  the  Interrupt.  This 
capability  along  with  a  data  analyzer  served  as  a  development  system 
for  the  automatic  temperature  controller.  The  fast  Interrupt  line,  on 
the  other  hand,  was  used  to  trigger  execution  of  a  program  that  checked 
the  Integrity  of  the  arithmetic  subroutines. 

Supporting  Software 

Once  it  was  determined  how  the  various  structures  of  the  MC6809 
microprocessor  architecture  were  to  be  used,  the  next  task  was  to  begin 
the  design  of  the  software.  Since  it  was  known  that  the  controller 
algorithm  would  have  to  interact  with  each  of  the  peripheral  devices 
and  that  it  undoubtedly  would  require  the  use  of  basic  arithmetic 
routines,  the  first  chore  of  the  software  development  was  to  write  sub¬ 
routines  that  would  perform  these  functions.  These  subroutines  were 
broken  into  seven  categories:  display  routines,  switch  interaction 
routines,  computer  interaction  routines,  keypad  interaction  routines, 
voltage  source  interaction  routines,  thermometer  interface  interaction 
routines,  and  arithmetic  routines.  A  short  description  of  each  of  these 
routine  types  is  given  below.  A  more  complete  description  of  these 
routines  is  given  in  Appendix  B. 

Two  types  of  display  routines  were  developed.  The  first  type  is 
based  upon  a  subroutine  thiat  simply  outputs  a  character  to  the  display. 
It  was  anticipated,  however,  thiat  this  type  of  routine  would  not  be 
sufficient  for  the  controller  algorithm,  especially  if  long  prompts  were 
required  to  be  displayed.  Therefore,  a  second  set  of  display  subrou¬ 
tines  was  also  developed.  These  subroutines  are  based  upon  a  subrou¬ 
tine  that  scrolls  characters  onto  the  display.  Each  of  these  two  sub- 
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routine  types  contains  routines  which  display  a  character,  a  string  of 
characters,  a  byte  of  Information  in  hexadecimal,  a  floating  point 
number  In  hexadecimal,  and  a  floating  point  in  decimal.  In  addition, 
a  subroutine  to  blank  the  display  is  also  included. 

The  second  category  of  subroutines,  switch  interaction  routines, 
should  more  correctly  be  called  switch  interaction  routine.  It  was 
decided  that  only  one  routine  was  needed  to  perform  all  the  interaction 
between  the  microprocessor  system  and  the  rotary  and  toggle  switches. 
This  routine  reads  the  current  status  of  the  rotary  and  toggle  switches 
and  updates  the  memory  locations  where  this  status  is  stored  and  also 
modifies  the  interrupt  capability  of  the  keypad  and  the  LSI-11  computer 
to  correspond  with  the  present  position  of  the  toggle  switch  ( AUTO / MAN ) . 

The  third  category  of  subroutines  is  a  set  of  routines  used  to 
Interact  with  the  LSI-11  computer.  Two  functions  had  to  be  implemented 
here.  The  first  was  to  read  information  being  sent  from  the  LSI-11 
computer  and  convert  this  information  to  a  form  that  could  be  used  by 
the  automatic  temperature  controller.  The  second  function  was  to  send 
a  signal  back  to  the  LSI-11  indicating  whether  the  temperature  was  set 
or  not.  This  function,  however,  required  only  a  load  and  store  and  it 
was  felt  that  a  subroutine  was  not  warranted  for  only  two  instructions. 
Therefore,  no  subroutine  is  written  to  perform  the  second  function. 

The  fourth  category  of  subroutines  are  the  keypad  interface  rou¬ 
tines.  It  was  anticipated  that  three  forms  of  input  would  be  required 
of  the  keypad:  (1)  a  single  decimal  digit,  (2)  a  yes  or  no  answer, 
and  (3)  a  real  number.  In  addition,  it  was  also  anticipated  that  the 
user  could  possibly  make  mistakes  when  entering  information  or  want  an 
extremely  long  prompt  repeated.  Therefore,  each  of  these  routines  had 
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to  display  the  input  as  it  was  entered  and  allow  for  correcting  the 
Input  or  repeating  the  prompt.  Based  on  this,  the  keypad  was  'painted' 
as  shown  in  Figure  19  and  a  routine  to  interpret  the  row  and  column 
signals  from  the  keypad  was  written.  Using  this  routine  then,  the  three 
Input  routines  could  be  constructed. 

Three  subroutines  are  written  for  the  fifth  category  of  routines, 
the  voltage  source  interfacing  routines.  These  include  routines  which 
set  the  output  current  limit,  set  the  output  voltage,  and  read  the  out¬ 
put  voltage  setting  of  the  HP  6130C  Digital  Voltage  Source. 

The  thermometer  interfacing  routines  make  up  the  sixth  category  of 
subroutines.  This  category  consists  of  two  subroutines:  one  which 
places  the  bias  voltage  on  all  the  sensors  which  require  a  biasing 
voltage  from  the  automatic  temperature  controller,  and  another  which 
reads  the  data  supplied  by  the  A/D  converter  and  adjusts  the  gain  of 
the  programmable  gain  amplifier.  It  was  decided  that  thermometer  se¬ 
lection  would  best  be  done  by  the  main  program  and,  therefore,  a  sub¬ 
routine  to  perform  this  function  is  not  provided. 

The  arithmetic  routines  comprise  the  final  category  of  subroutines. 
These  routines  are  the  ones  that  handle  the  arithmetic  manipulation  of 
floating  point  numbers.  Routines  to  recall,  store,  add,  multiply, 
negate,  and  invert  floating  point  numbers  have  been  written.  To  these 
routines  have  been  added  routines  that  perform  stack  manipulations  and 
compare  real  numbers.  These  routines,  it  was  felt,  would  be  sufficient 
to  implement  the  automatic  temperature  controller. 

Once  all  the  subroutines  were  written,  it  was  possible  to  also 
write  the  interrupt  handler  routines.  These  routines  are  also  contained 
in  Appendix  B. 
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Figure  19.  Keypad  Layout 


Control  Scenario 

After  the  supporting  software  was  written,  the  next  step  was  to 
determine  how  the  automatic  temperature  controller  was  to  adjust  and 
control  the  temperature  of  the  sample  holder.  To  meet  this  end,  a 
scenario  was  developed  that  closely  mimicked  the  actions  of  the  tech¬ 
nician  and  the  Artronix  analog  controller  in  the  original  temperature 
control  scheme. 

The  scenario  for  the  automatic  temperature  controller  was  envi¬ 
sioned  as  follows:  The  automatic  temperature  controller  would  read  the 
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desired  silicon  diode  voltage  setting  from  the  LSI-11  computer  or  the 
keypad.  Which  of  these  two  devices  would  be  read  would  depend  upon 
whether  the  automatic  temperature  controller  was  in  the  automatic  mode 
or  in  the  manual  mode.  This  would  be  determined  by  the  position  of  the 
toggle  switch.  Once  the  desired  voltage  was  obtained,  the  controller 
would  determine  which  control  thermometer  should  be  used  when  the  de¬ 
sired  voltage  was  reached.  The  controller  would  base  its  decision  upon 
the  position  of  the  rotary  switch,  the  desired  voltage,  and  information 
previously  supplied  by  the  user  on  each  of  the  control  thermometers. 

After  the  appropriate  control  thermometer  had  been  selected,  the  con¬ 
troller  would  begin  to  monitor  the  silicon  diode  thermometer  voltage 
and  adjust  the  output  of  the  voltage  source  to  obtain  the  desired  voltage 
on  the  silicon  diode.  This  adjustment  would  be  controlled  by  the  tem¬ 
perature  controller  so  that  the  desired  voltage  would  be  obtained  as 
<juickly  as  possible  without  overshooting  the  desired  voltage  set  point. 
Once  the  controller  determined  that  the  voltage  was  set  and  that  it  was 
stable,  the  controller  would  switch  to  the  appropriate  control  thermom¬ 
eter  and  signal  the  LSI-11  computer  that  the  temperature  was  set.  The 
automatic  temperature  controller  would  then  continue  to  monitor  the 
control  thermometer,  making  adjustments  as  necessary  to  the  voltage 
output  to  the  heater  coil  in  order  to  maintain  the  control  thermometer 
reading.  This  temperature  control  function  would  continue  until  the 
controller  was  interrupted  with  the  next  input  from  the  computer  or  the 
keypad . 

Control  Scheme 

Once  the  control  scenario  was  devised,  the  next  step  in  the  soft¬ 
ware  development  was  to  Implement  this  scenario.  The  most  difficult 
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portion  of  the  scenario  to  Implement  Is  the  changing  of  temperature. 
Therefore,  this  was  the  first  portion  to  be  Implemented. 

As  mentioned  In  the  discussion  on  temperature  adjustment  in  Chapter 
II,  the  adjustment  of  temperature  became  difficult  below  approximately 
40  degrees  Kelvin  due  to  the  change  in  thermalconductivity  of  the  copper 
sample  holder.  Since  the  copper  sample  holder  was  not  changed  in  the 
hardware  design  of  the  controller,  temperature  adjustment  for  the  auto¬ 
matic  temperature  controller  would  also  be  difficult.  Therefore,  the 
method  used  to  adjust  temperature  would  have  to  account  for  this  change 
in  thermalconductivity.  Since  the  automatic  temperature  controller 
would  be  reading  the  input  from  the  silicon  diode  and  adjusting  the 
heater  coil  voltage ‘source  accordingly,  all  information  necessary  to 
derive  the  impulse  response  of  the  thermal  system,  as  seen  by  the  con¬ 
troller,  would  be  known.  Furthermore,  with  the  impulse  response  in 
hand,  the  controller  could  accurately  predict  what  heater  coil  voltage 
would  produce  a  desired  input  voltage  from  the  silicon  diode.  There¬ 
fore,  the  problem  of  temperature  adjustment  can  be  solved  by  deriving 
and  Implementing  an  equation  that  gives  the  heater  coil  voltage  in 
terms  of  a  desired  input  thermometer  signal  level  and  the  impulse  re¬ 
sponse  of  the  thermal  system. 

An  equation  that  related  the  desired  input  signal  level  and  the 
output  voltage  was  derived  and  implemented.  However,  late  in  the 
testing  of  the  automatic  temperature  controller,  this  equation  was 
found  to  be  in  error.  This  error  is  still  reflected  in  the  source 
listing  contained  in  Appendix  B  and  will  be  discussed  in  Chapter  V. 

A  similar,  but  more  correct  derivation  of  this  equation  is  given  in 
the  paragraphs  below. 
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Let: 

y(n)  “  nth  sample  of  the  input  signal  from  the  thermometer 

x(n)  -  nth  sample  of  the  output  voltage  to  the  heater  coil 

h(n)  -  nth  sample  of  the  Impulse  response  of  the  thermal  system 
as  seen  by  the  automatic  temperature  controller 

These  quantities  are  related  by  the  convolution  sum: 


y(n)  -  l  h(k) *x(n-k) 


(4) 


Assuming  that  h(n)  is  equal  to  zero  for  n>“m>0,  equation  (A)  can  be 
expressed  as: 


Therefore: 


y(n-m+l) 

y(n-m+2) 


y(n-l) 

|_y<n> 


m-1 

y(n)  -  Z  h(k) *x(n-k) 
k-0 


x(n-m+l)  x(n-m)  .  .  .  x(n-2m+l) 
x(n-m+2)  x(n-m+l) .  .  .  x(n-2m+2) 


(5) 


x(n-l)  x(n-2)  .  .  .  x(n-ra) 

x(n)  x(n-l)  .  .  .  x(n-m+l) 


mxl  mxm 

Rewriting  equation  (6)  using  matrix  variables  gives: 

Y  -  X  *  H 

Solving  for  H,  the  impulse  response,  yields: 

.-1 


'h(O) 

h(l) 

* 

• 

• 

• 

h(m-2) 

_h(ra-l)  _ 

(6) 


mxl 


(7) 


(8) 


H  -  X  ‘  *  Y 

Since  all  quantities  in  X  and  Y  are  known  to  the  automatic  temperature 
controller,  the  impulse  response,  H,  can  be  measured. 
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The  next  seep  in  the  derivation  was  to  determine  the  proper  heater 
coil  voltage  setting  to  give  a  desired  input  signal  from  the  thermometer. 
To  do  this,  it  was  assumed  that  at  some  time,  p,  the  desired  input 
signal  level,  y(p) ,  is  known.  Therefore,  the  heater  coil  voltage,  x(p) , 
can  be  determined  by  substitution  into  equation  (5).  Solving  for  x(p) 
yields: 

y(p)  -  ([0  x(p-l)  x(p-2)  ...  x(p-m+l) ]  *  H) 

x(p)  -  (9) 

[1  0  0  ...  0]  *  H 

The  remaining  step  in  the  derivation  was  to  substitute  for  the  Impulse 
response.  The  most  recent  measurement  of  the  Impulse  response  was 
obtained  by  letting  .n  =  p-1  in  equation  (8).  Substituting  this  ex¬ 
pression  into  equation  (9)  and  simplifying  gives  the  final  form  of  the 
equation: 

m-1 

y(p)  *  det(B)  -  Z  x(p-k)  *  det(A(k)) 
x(p)  -  _ ! _  (io> 

det(A(l» 

where : 

x(p-m)  x(p-m-l)  .  .  .  x(p-2m) 

x(p-m+l)  x(p-m)  .  .  .  x(p-2m+l) 

•  •  •  • 

B  *  •  •  •  • 

•  •  •  • 

x(p-2)  x(p-3)  .  .  .  x(p-m-l) 

x(p-i)  x(p-2)  .  .  .  x(p-m) 

and 

A(k)  -  B  with  the  kth  column  replaced  with  the  column  vector 
[y(p-m)  y(p-m+l)  ...  y(p-2)  y(p-l)]T 
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Equation  (10)  can  be  used  to  determine  x(p)  if  the  matrices  A(l)  and  B 
are  not  singular.  If  the  matrix  A(l)  is  singular,  the  equation  is  un¬ 
defined  and  if  the  matrix  B  is  singular,  equation  (8)  from  which  equa¬ 
tion  (10)  was  derived  is  undefined.  An  Implementation  of  this  equation, 
therefore,  must  insure  that  these  matrices  are  not  singular. 

One  way  in  which  equation  (10)  could  be  implemented  to  insure  that 
the  two  matrices  would  not  be  singular  is  as  follows:  A  value  of  m 
would  be  chosen  so  that  the  microprocessor  system  could  be  expected  to 
evaluate  the  equation  in  a  reasonable  amount  of  tlue.  An  attempt  would 
be  made  by  the  microprocessor  to  determine  the  heater  coil  output  volt¬ 
age  from  equation  (10)  by  first  evaluating  the  determinants  of  the  A(l) 
and  B  matrices.  If  either  of  these  determinants  was  zero,  the  micro¬ 
processor  would  attempt  to  solve  the  equation  using  m-1  points,  still 
checking  for  singularity  of  the  A(l)  and  B  matrices.  This  process 
could  be  repeated  —  decrementing  m  and  attempting  to  solve  the  equa¬ 
tion  —  until  the  equation  was  solved  or  until  m  became  equal  to  zero. 
(If  all  samples  of  the  heater  coil  voltage  were  zero,  the  determinant 
of  the  B  matrix  would  be  equal  to  zero  for  all  values  of  m.)  If  the 
equation  could  not  be  solved,  the  microprocessor  would  output  some 
predefined  voltage  level  to  the  heater  coil.  (This  same  scheme  was 
used  in  the  actual  Implementation  of  the  controller.) 

Several  assumptions  have  not  been  stated  that  can  not  be  neglected 
in  the  Implementation  of  the  controller.  In  order  to  use  the  convolu¬ 
tion  sum  as  it  is  stated  in  equation  (4) ,  the  thermal  system  must  be 
causal,  time- invariant,  and  linear.  The  first  requirement,  causality, 
is  no  problem,  since  this  is  a  real  system.  The  second  requirement 
is  for  the  system  to  be  time- invariant.  The  thermal  system,  however. 
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is  obviously  not  time-invariant,  since  the  impulse  response  of  the 
system  varies  with  temperature  and  the  temperature  is  being  varied  with 
time.  It  was  assumed,  however,  that  the  temperature  of  the  system  will 
not  change  abruptly  and  therefore  the  system  will  look  approximately 
time- invariant.  Therefore,  t ime- invar iance  was  not  overwhelming  re¬ 
striction.  The  linearity  requirement,  however,  did  present  a  problem 
in  the  development  of  the  control  scheme.  Since  the  thermometers  are 
far  from  being  linear  devices,  the  thermal  system,  as  seen  by  the  con¬ 
troller,  is  also  not  linear.  It  was  assumed,  however,  that  the  ther¬ 
mometers  would  appear  to  be  linear  for  small  changes  in  temperature 
since  their  input  signals  change  monotonically  with  temperature.  Th 
thermometers  whose  input  signals  are  monotonically  decreasing  with 
temperature  presented  an  additional  problem.  In  the  typical  model  of 
a  linear  system,  a  zero  input  signal  will  produce  a  zero  output  signal 
[Ref.  equation  (4)].  The  thermometers  with  monotonically  decreasing 
input  signals,  however,  produce  their  largest  signals  when  no  voltage 
is  applied  to  the  heater  coil.  Therefore,  the  signals  from  these  ther¬ 
mometers  have  to  be  modified  so  that  they  are  smallest  at  lower  tem¬ 
peratures.  One  method  of  doing  this  was  devised,  but  was  found  to  be 
incorrect.  This  method  and  a  more  correct  method  are  discussed  in 
Chapter  V.  The  incorrect  method  stated  that  the  reciprocal  of  the  input 
samples  from  these  thermometers  was  to  be  used  instead  of  the  actual 
input  samples.  Using  this  technique,  the  thermometers  whose  signals 
were  originally  decreasing  with  temperature  were  now  increasing  with 
temperature  and,  therefore,  could  be  used  in  the  temperature  adjustment 
equation.  A  more  correct  method  is  to  subtract  the  thermometer  signal 
at  the  lowest  achievable  temperature  from  each  ot  th*  input  samples. 
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Using  the  more  correct  method,  all  of  the  assumptions  can  be  satisfied. 
Therefore,  equation  (10)  is  a  valid  equation  for  adjusting  the  tem¬ 
perature. 

Once  it  was  determined  that  the  assumptions  could  be  satisfied, 
the  next  step  in  the  software  development  was  to  decide  upon  a  model 
which  the  temperature  controller  could  use  to  provide  the  intermediate 
thermometer  input  levels,  y(p) ,  to  the  control  equation.  The  choice  of 
model  was  completely  arbitrary.  However,  the  user  was  particularly 
concerned  about  overshooting  the  desired  temperature.  Therefore,  it 
was  decided  that  the  automatic  temperature  controller  should  follow  a 
model  of  a  critically  damped  curve  of  input  signal  versus  temperature. 
This  model  was  chosen  so  that  the  desired  temperature  would  be  obtained 
in  no  fewer  than  twenty  samples. 

After  the  model  for  changing  temperature  was  determined,  it  was 
noted  that  the  same  control  algorithm  used  for  changing  temperature 
could  also  be  used  for  controlling  temperature.  Assuming  that  when  the 
switch  is  made  to  monitoring  the  control  thermometer  that  the  tem¬ 
perature  is  stable  at  the  desired  level,  the  first  reading  of  the  input 
signal  from  the  control  thermometer  is  the  signal  level  that  should  be 
maintained.  Therefore,  by  changing  the  model  so  that  the  input  signal 
level  of  the  control  thermometer  is  maintained,  the  same  equation  can  be 
used  for  controlling  temperature  as  well  as  changing  the  temperature. 

Required  Information 

Once  the  control  scheme  was  devised,  the  final  task  of  the  soft¬ 
ware  development  was  to  determine  what  information  the  user  would  have 
to  supply  to  the  temperature  controller  so  tliat  the  controller  could 
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adjust  and  control  temperature.  It  was  determined  that  before  any 
adjustment  or  control  could  be  done  by  the  controller,  some  questions 
on  the  experiment  would  have  to  be  asked:  how  many  thermometers  were 
to  be  used;  which  thermometer  would  be  used  to  adjust  temperature;  and 
over  what  temperature  range  should  the  remaining  thermometers  be  used 
to  control  temperature.  In  addition  to  these  questions,  other  questions 
had  to  be  asked  in  order  to  provide  information  on  each  of  the  ther¬ 
mometers:  would  the  input  signal  from  each  thermometer  be  a  voltage  or 
a  current  signal;  would  these  input  signals  be  monotonically  increasing 
or  decreasing  with  temperature;  if  the  thermometer  produced  a  current 
signal,  would  this  thermometer  require  voltage  biasing  from  the  tem¬ 
perature  controller  or  would  the  biasing  be  done  externally;  and  if  the 
thermometer  requires  biasing  from  the  controller,  does  the  biasing  volt¬ 
age  need  to  be  applied  throughout  the  entire  experiment  or  only  over  the 
temperature  range  that  the  thermometer  would  be  used.  Once  each  of 
these  questions  were  answered,  all  the  information  the  automatic  tem¬ 
perature  controller  would  need  about  the  thermometers  would  be  known. 

The  next  information  the  controller  would  need  was  information  on 
the  heater  coil,  namely:  the  maximum  current  that  should  be  allowed  to 
flow  through  the  heater  coil  and  the  resistance  of  the  coil.  With  these 
two  pieces  of  information,  the  current  limit  on  the  HP  6130C  Voltage 
Source  can  be  set  and  the  maximum  output  voltage  calculated. 

One  final  piece  of  information  would  also  be  required  of  the  user. 
Since  error  in  measurement  is  always  present  due  to  noise  and  other 
sources,  the  maximum  allowed  steady-state  error  for  temperature  adjust¬ 
ment  would  have  to  be  specified  by  the  user.  This  information  allows 
the  controller  to  decide  when  the  temperature  is  close  enough  to  switch 
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Co  a  control  thermometer. 


After  the  required  controller  inputs  from  the  user  were  determined, 
a  routine  was  written  to  prompt  the  user  for  this  information  and  store 
these  data  in  the  controller  memory.  Also  included  in  this  routine  is 
a  limited  amount  of  error  checking  to  insure  that  the  input  data  looks 
reasonable.  This  routine  is  accessed  upon  power  up  of  the  microproc¬ 
essor  system. 

Summary  of  Software  Design 

Once  the  software  design  was  completed  and  implemented,  the  auto¬ 
matic  temperature  controller  was  complete  and  ready  for  testing.  The 
next  chapter  discusses  the  results  of  this  testing  and  the  recommenda¬ 
tions  for  how  the  controller  can  be  improved. 
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V.  Recommendations  and  Conclusion 


Upon  completion  of  the  hardware  and  software  designs,  the  automatic 
temperature  controller  was  implemented  and  tested .  This  chapter  pres¬ 
ents  the  results  of  the  controller  testing  and  recommends  improvements 
to  both  the  hardware  and  software  designs. 

Results 

During  the  testing  of  the  automatic  temperature  controller,  many 
minor  hardware  and  software  errors  were  corrected.  It  was  hoped  that  by 
correcting  these  errors  the  controller  would  work  properly.  However, 
this  was  not  the  case.  In  an  attempt  to  determine  why  the  controller 
did  not  work  properly  and  to  aid  in  correcting  the  problems  with  the 
controller  design,  four  questions  were  asked:  how  well  does  the  micro¬ 
processor  system  perform,  how  well  does  each  of  the  interfaces  work, 
how  well  does  the  controller  change  from  one  temperature  to  another, 
and  how  well  does  the  controller  maintain  temperature. 

Once  all  the  minor  errors  in  hardware  and  software  were  corrected, 
the  microprocessor  system  worked  perfectly.  The  time  required  for  the 
microprocessor  to  execute  the  control  algorithm  is  not  as  critical  as 
was  thought  at  the  beginning  of  the  hardware  design.  The  microprocessor 
requires  346  milliseconds  to  determine  a  heater  coil  voltage  setting 
once  data  is  available  at  the  A/D  converter.  This  accounts  for  approxi¬ 
mately  60  percent  of  time  required  by  the  A/D  to  perform  a  conversion. 
Therefore,  the  microprocessor  can  easily  calculate  and  output  a  voltage 
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Co  Che  heaCer  coil  before  Che  next  thermometer  sample  becomes  available. 
These  Clmes,  however,  are  obCained  from  Che  algorithm  chac  is  acCually 
implemented  and  noC  from  Che  more  correcC  algoriChm  discussed  in 
ChapCer  IV.  Since  iC  is  believed  Chac  an  implemenCaCion  of  Che  more 
correcC  algoriChm  will  require  more  Clme,  a  fasCer  microprocessor  sysCem 
may  be  needed. 

Mosc  of  Che  inCerfaces  beCween  Che  microprocessor  syscem  and  Che 
peripheral  devices  work  as  Chey  were  designed.  No  problems  were  found 
in  Che  heaCer  coil  inCerface,  Che  display  inCerface,  or  Che  swicch  and 
keypad  inCerface.  Unfortunately ,  chere  was  insufficienc  Cime  Co  CesC 
Che  LSI-11  compuCer  inCerface.  Therefore,  iC  is  nor  known  wheCher  Chis 
InCerface  is  funccional. 

The  Chermometer  inCerface  proved  Co  be  Che  mosC  decrimencal  Co  Che 
proper  funecioning  of  the  automatic  temperature  controller.  While  the 
detection  section  of  this  interface  does  measure  the  input  signals  from 
each  of  Che  thermometers,  these  signals  are  corrupted  with  noise  by  the 
time  they  reach  the  A/D  converter.  For  example,  a  1.7  volt  signal  from 
Che  silicon  diode  contained  400  microvolts  of  noise.  Similar  noise 
levels  were  noted  on  the  signals  from  the  two  control  thermometers .  It 
was  determined  Chat  Che  most  probable  source  of  Chis  noise  is  Johnson 
noise  generated  in  the  resistors  of  the  detection  section.  Therefore, 
some  of  Chis  noise  could  be  eliminated  by  using  smaller  resistor  values. 
Two  addicional  problems  were  noted  in  Che  thermometer  inCerface  detec¬ 
tion  section:  output  offset  voltage,  and  operational  amplifier  drift. 
These  two  problems  result  in  errors  in  signal  measurement  at  the  A/D 
converter.  These  errors  were  verified  by  comparing  the  actual  silicon 
diode  voltage  with  the  voltage  measured  by  the  automatic  temperature 
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controller.  While  not  specifically  measured,  these  errors  are  also 
assumed  to  be  present  in  the  detected  signals  from  the  control  ther¬ 
mometers.  The  output  offset  voltage  produces  an  error  of  approximately 
20  millivolts  between  the  actual  silicon  diode  voltage  and  the  voltage 
present  at  the  output  of  the  detection  section.  This  problem  was  not 
present  when  the  detection  section  was  originally  calibrated  and  it  is 
believed  that  by  recalibrating  this  section,  the  offset  problem  can  be 
alleviated.  The  second  problem,  operational  amplifier  drift,  produces 
a  5  millivolt  drift  in  the  measured  voltage  when  the  automatic  tempera¬ 
ture  controller  is  monitoring  the  silicon  diode  voltage.  This  drift 
appears  to  be  cyclic  over  a  five  minute  period.  The  drift  error  is 
significant  and,  therefore,  cannot  be  ignored.  The  errors  caused  by 
the  operational  amplifier  drift  were  noted  especially  in  one  case: 
when  the  controller  is  attempting  to  control  temperature.  All  of  the 
errors  in  the  thermometer  interface  —  noise,  offset  voltage,  and 
amplifier  drift  —  will  have  to  be  corrected  in  order  for  the  automatic 
temperature  controller  to  work  properly. 

Two  errors  present  in  the  controller  software  prevented  the  auto¬ 
matic  temperature  controller  from  properly  adjusting  temperature.  These 
errors  were  mentioned  in  the  discussion  of  the  control  scheme  contained 
in  Chapter  IV.  The  first  error  deals  with  the  equation  used  to  determine 
the  heater  coil  voltage  setting.  The  equation  actually  Implemented  is 
exactly  the  same  as  equation  (10)  in  the  last  chapter  with  the  exception 
of  the  B  matrix  which  is  replaced  with: 
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0 


0 


x<p-«) 

x(p-o+l) 


x(p-ffl) 


B  - 


0 

0  0 


x(p-2)  x(p-3) 

x(p-l)  x(p-2) 


.  .  .  x(p-m)  0 
.  .  .  x(p-o+l)  x(p-o) 


This  equation  was  obtained  from  an  error  In  the  convolution  sum  equation 
and,  therefore,  does  not  reflect  a  true  measurement  of  the  impulse  re¬ 
sponse  of  the  thermal  system.  It  is  not  known  exactly  what  Impact  this 
error  has  on  the  ability  of  the  automatic  temperature  controller  to  con¬ 
trol  temperature.  Any  error  caused  by  mlsmeasurement  of  the  Impulse 
response  seems  to  be  overshadowed  by  the  second  major  error  in  the  con¬ 
troller  software  discussed  in  the  next  paragraph. 

The  second  error  in  the  controller  software  is  in  how  the  program 
handles  thermometers  whose  input  signals  are  monotonlcally  decreasing 
with  temperature.  As  was  stated  in  Chapter  IV,  the  reciprocal  of  each 
input  signal  sample  is  used  instead  of  the  actual  input  signal  sample. 

In  this  way,  the  signals  from  these  thermometers  are  made  to  look  mono¬ 
tonlcally  increasing.  By  using  this  scheme,  however,  the  controller 
behaves  in  a  rather  bizarre  manner.  When  monitoring  the  silicon  diode 
voltage,  the  controller  slowly  adds  voltage  across  the  heater  coil  when 
the  actual  temperature  of  the  sample  is  much  less  than  the  desired  tem¬ 
perature.  As  the  temperature  of  the  sample  increases  towards  the  de¬ 
sired  temperature,  the  controller  continues  to  add  voltage  to  the  heater 
coil  until  the  desired  temperature  is  overshot.  The  explanation  for 
this  behavior  is  as  follows:  since  the  reciprocal  of  the  input  signals 
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is  used,  the  controller  'sees'  the  error  between  the  sctusl  voltage  and 
the  desired  voltage  of  the  silicon  diode  as  being  smallest  when  the 
temperature  difference  is  large.  As  the  taaperaturc  difference  becomes 
mailer,  the  controller  'sees'  the  voltage  error  as  becoming  larger  and, 
therefore,  increases  the  heater  coil  voltage  further.  Hence,  another 
scheme  is  needed  to  account  for  the  thermometers  whose  signals  are 
monotonically  decreasing  with  temperature.  Such  a  scheme  is  proposed 
in  the  recommendations  which  follow. 

The  final  question  asked  how  well  the  automatic  temperature  con¬ 
troller  controls  temperature.  Once  the  oscillations  of  temperature 
adjustment  damp  out  and  the  controller  switches  to  one  of  the  two  control 
thermometers,  the  controller  is  able  to  maintain  temperature  to  within 
0.1  degrees  Kelvin.  This  deviation  is  20  times  what  was  stipulated  in 
the  requirements  for  the  automatic  temperature  controller.  This  large 
deviation  probably  has  its  source  in  the  noise  and  drift  problems  of  the 
thermometer  interface  detection  section.  In  addition,  the  reciprocal 
error  discussed  in  the  previous  paragraph  is  also  present  in  the  platinum 
thermometer  control  since  this  thermometer  produces  a  current  signal 
which  is  monotonically  decreasing  with  temperature.  By  correcting  these 
three  sources  of  error,  it  is  believed  that  the  automatic  temperature 
controller  will  meet  the  requirements  for  temperature  control. 

Recommendat ions 

During  the  testing  of  the  automatic  temperature  controller,  many 
ideas  on  how  the  controller  could  be  improved  were  devised.  Contained 
in  Che  paragraphs  below  are  recommendations  for  actions  to  be  taken  to 
make  the  controller  functional. 
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The  first  recommendation  is  to  measure  the  Impulse  response  of  the 
thermal  system.  The  lack  of  this  Information  proved  to  be  a  hindrance 
during  the  software  design.  Since  the  impulse  response  was  not  known, 
the  number  of  points  used  to  represent  this  response  was  arbitrarily 
chosen  as  five.  If,  however,  the  complete  Impulse  response  of  the 
thermal  system  is  known,  the  optimum  number  of  points  can  be  determined. 

The  second  recommendation  is  to  redesign  the  thermometer  interface. 
While  a  temporary  solution  would  be  to  decrease  the  size  of  the  resistor 
values  in  the  existing  thermometer  interface  to  reduce  the  Johnson  noise, 
this  would  not  eliminate  the  operational  amplifier  drift.  To  eliminate 
the  drifting  problem,  compensation  networks  will  probably  be  required. 
Some  possible  methods  of  reducing  noise  and  amplifier  drift  are  pre¬ 
sented  in  Reference  16. 

Implementation  of  the  control  equation  discussed  in  Chapter  IV  is 
the  third  recommendation.  By  using  this  equation,  it  is  hoped  that  the 
controller  will  have  a  better  measure  of  the  Impulse  response  of  the 
thermal  system.  This  implementation  will  require  a  subroutine  that  can 
evaluate  an  m  x  m  determinant .  If  this  equation  is  implemented  in  this 
way,  however,  more  RAM  may  be  required. 

The  implementation  of  equation  (10)  will  require  a  different  method 
of  accounting  for  thermometers  with  monotonically  decreasing  signals. 
Another  method  which  could  be  used  is  to  subtract  the  value  of  the  input 
signal  at  4.2  degrees  Kelvin  from  each  input  signal  sample.  While  it 
has  not  been  determined  at  this  time,  it  is  believed  that  by  using  this 
scheme  the  automatic  temperature  controller  will  properly  'see'  the 
errors  between  desired  and  actual  input  signal  levels. 
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The  final  recommendation  is  not  for  the  present  automated  tempera- 
Cure  controller,  but  for  future  versions  of  the  controller.  One  of  the 
parameters  in  the  hardware  design  philosophy  stated  that  the  controller 
should  be  built  from  scratch.  Nov  that  the  present  controller  is  built, 
however,  it  is  believed  that  it  would  be  more  feasible  to  build  future 
controllers  with  pre-built  computer  boards  available  on  the  market. 

This  would  eliminate  the  time  spent  in  constructing  and  testing  of  the 
hardware. 

Conclusion 

Uhile  the  present  design  of  the  automatic  temperature  controller  is 
not  a  complete  success,  much  was  learned  about  the  problems  associated 
with  temperature  control.  The  hardware  and  software  designs  of  the 
present  controller  form  the  basis  upon  which  modifications  can  be  made 
to  produce  a  correctly  functioning  automatic  temperature  controller. 

The  steps  defined  in  the  recommendations  of  this  chapter  outline  possible 
methods  by  which  the  automatic  temperature  controller  can  be  changed  to 
meet  the  requirements  set  out  in  Chapter  II. 
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Appendix  A 

Controller  Board  Layout  and  Pin  Connections 


This  appendix  contains  the  chip  layout  and  pin  connections  for  the 
two  boards  contained  in  the  automatic  temperature  controller.  Complete 
details  on  the  hardware  system  can  be  obtained  from  Dr.  Patrick  M. 
Hemenger,  AFWAL/MLPO,  Wright-Patterson  AFB,  Ohio  45433. 
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Microcomputer  Board  Layout  and  » in  Connectiona 


Figure  A-2.  Thermometer  Interface  Board  Layout  and  Pin  Connections 


Appendix  B 

Controller  Program  Assembly  Listing 


This  appendix  contains  the  assembly  listing  of  the  software  con¬ 
tained  in  the  automatic  temperature  controller.  To  aid  in  understanding 
the  code  the  assembly  listing  is  supplemented  with  a  pseudo-PASCAL 
program  listing. 
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NAM  CNTRLR 

**************************************************************************** 


THIS  IS  THE  AUTO:tATIC  TEMPERATURE  CONTROLLER  SO FTWARE  CODE.  INCLUDED  1 
WITH  THE  ASSEMBLY  MNEMONICS  IS  A  PSEUDO- PASCAL  LISTING. 

MEMORY  REQUIREMENTS: 

ROM  10K  BYTES 
RAM  640  BYTES 

**************************************************************************** 


*  DEFINE  PIA  DATA  PORT  LOCATIONS  AND  CONTROL  REGISTER  LOCATIONS 

* 

***************************************************************************** 

DISPAD  EQU  $1000 
DISPDA  EQU  $1001 
SWITCH  EQU  $1002 
KEYBRD  EQU  $1003 
PSFLGS  EQU  $1005 
PSDATO  EQU  $1006 
PSD ATI  EQU  $1007 
SENFLG  EQU  $1003 
SENSEL  EQU  $1009 
SENDAO  EQU  $100A 
SENDAI  EQU  $ 100B 
COMDAO  EQU  $100C 
C0MDA1  EQU  $ 100D 

DISPCO  EQU  $1010 
DISPC1  EQU  $1011 
SWCHCR  EQU  $1012 
KEYCR  EQU  $1013 
PSCRO  EQU  $1015 
PSCR1  EQU  $1016 
PSCR2  EQU  $1017 
SENCRO  EQU  $1018 
SENCK1  EQU  $1019 
SENCR2  EQU  $101 A 
SENCR3  EQU  $10 IB 
COMCRO  EQU  $10 1C 
C0MCR1  EQU  $10 ID 


B  - 
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****************************************************************************** 


*  * 

*  DEFINE  ORICIN  LOCATIONS,  STACK  STARTING  LOCATION,  AND  OTHER  HISCELA-  * 

*  NEOUS  EQUATES.  * 

*  * 


****************************************************************************** 

DATA  EQU  $0000 
PROG  EQU  $D8U0 
SUB  EQU  $FOOU 
VECTOR  EQU  $FFF2 
U START  EQU  $01 /F 
SSTART  EQU  $027F 
EOT  EQU  $FF 


3 


****************************************************************************** 
*  * 

*  DEFINE  RAM  DATA  LOCATIONS.  * 

*  * 
****************************************************************************** 


ORG 

DATA 

DIG1 

rmb 

16 

ROTARY 

RMB 

1 

TOCCLE 

RMB 

1 

PRIMRY 

RMB 

1 

SECDRY 

RMB 

1 

PSCTJRR 

RMB 

4 

LDRES 

RMB 

4 

PSMAX 

RMB 

4 

ERROR 

RMB 

4 

NUMSEN 

RMB 

1 

SEN1 

RMB 

17 

SEN2 

RMB 

17 

SEN3 

RMB 

17 

SENA 

RMB 

17 

YD 

RMB 

4 

YS 

RMB 

4 

YO 

RMB 

4 

Y1 

RMB 

4 

Y2 

RMB 

4 

Y3 

RMB 

4 

Y4 

RMB 

4 

UO 

RMB 

4 

VI 

RMB 

4 

U2 

RMB 

4 

U3 

RMB 

4 

U4 

RMB 

4 

U5 

RMB 

4 

B 
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*  INTERRUPT  VECTOR  JUMPS 


ORG  PROG 
IRQVEC  JMP  IRQ 
NMIVEC  JMP  NMI 
SWIVEC  JMP  SWI 
RSTVEC  JMP  RESET 
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****************************************************************************** 
*  * 

*  THIS  IS  THE  FAST  INTERRUPT  ROUTINE.  IT  CAN  3E  USED  TO  CUECK  THE  * 

*  INTEGRITY  OF  THE  ARITHMETIC  SUBROUTINES.  * 

*  * 
****************************************************************************** 

FIRQ  LDS  #S START  *  RESET  STACKS 

LUU  tfUSTART 

*  REPEAT 

PNTFOO  JSR  CRLF  *  CRLF 

JSR  OUTSTR  *  WRIT£( 'FUNCTION(0-9)?') 

FCC  /FOilCT/ 

FCC  /I0N(0/ 

FCC  /— 9 ) ? / 

FCB  EOT 

JSR  RDDIG  *  RDDIG 

BVS  PNTFOO  *  UNTIL  V  CLEAR 

TSTA  *  CASE  A  OF 

BNE  PiJTFOl 

JSR  RDKEY  *  O(RDKEY):  RDKEY 

BRA  PNTF02 
PNTFOl  DEC A 

BNE  PNTF03 

JSR  PLUS  *  1( ADD) :  PLUS 

BRA  PNTF02 
PNTF03  DECA 

BI1E  PNTF04 

JSR  NEGATE  *  2(SUBTRAC7):  NEGATE 

BRA  PNTF02  *  PLUS 

PNTF04  DECA 

BNE  PNTF03 

JSR  MLTPLY  *  3CMULTIPLY):  MLTPLY 

BRA  PNTF02 
PNTF05  DECA 

BNE  PNTF06 

JSR  INVRSE  *  4( DIVIDE):  INVRSE 

JSR  MLTPLY  *  MLTPLY 

BRA  PNTF02 
PHTF06  DECA 

BNE  PNTF07 

JSR  INVRSE  *  5( 1/X):  INVRSE 

BRA  PNTF02 
PNTF07  DECA 

BNE  PNTF03 

JSR  NEGATE  *  6<CHANCE  SICN):  NECATE 

BRA  PNTF02 
PNTF08  DECA 

BNE  PMTF09 

JSR  XiNCGY  *  7(X  INTERCHANGE  Y) :  XINCCY 

BRA  PNTF02 
PNTF09  DECA 

BNE  PNTFOA 

LEAU  4 ,U  *  8( STACK  ROLLDOWN):  REMOVE  X 


B 
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BRA  PNTF02 
PNTFOA  JSR  COPY 
PNTF02  JSR  COPY 
JSR  CRFL 
JSR  OUTDEC 

PNTFOB  JSR  INCH 
CMPA  #'R 
BNE  PNTFOB 
BRA  PNTFOO 


*  9(COPY) :  COPY 

*  COPY 
a  CRLF 

*  OUTPUT  DECIMAL  NUMBER 

*  REPEAT 

*  INCH 

*  UNTIL  A  -  'R* 


THIS  IS  THE  INTERRUPT  REQUEST  HANDLER.  INTERRUPT  PRIORITY  IS  AS 
FOLLOWS:  LSI-11  COMPUTER,  KEYPAD ,  ROTARY  AND  TOCCLE  SWITCHES,  AND 
THE  HP-61 30C  POWER  SUPPLY. 


IRQ 

LDA  COMORO 

* 

IF  COMPUTER  INTERRUPT 

ANDA  # $81 

CMPA  #§81 

BNE 

PNTIOO 

* 

THEN 

JMP 

COMPINT 

A 

GO  TO  COMINT 

PNTIOO 

LDA 

KEYCR 

A 

IF  KEYBOARD  INTERRUPT 

ANDA  #$81 

CMPA  #$81 

BNE 

PNTlOl 

A 

THEN 

JMP 

KEYINT 

A 

CO  TO  KEYINT 

PNT101 

LDA 

SUC1ICK 

A 

IF  SWITCH  INTERRUPT 

BMI 

PNT102 

LSLA 

BPL 

PNT103 

A 

THEN 

PHT102 

JSR 

RD  SWCll 

A 

UDSWCII 

RTI 

A 

RETURN 

PHT103 

LDA 

PSCRO 

A 

IF  NOT  POWER  SUPPLY  INTERRUPT 

BMI 

PNT104 

A 

THEN 

RTI 

* 

RETURN 

A 

REPEAT 

PNT104 

JSR 

CRLF 

A 

CRLF 

JSR 

SCRSTR 

A 

WRITE(' POWER  SUPPLY  CURRENT  LIMIT  EXCEDED. 

FCC 

/POWER/ 

A 

SHOULD  THIS  LIMIT  BE  INCREASED?') 

FCC 

/  SUPP/ 

FCC 

/LY  Cu7 

> 

FCC 

/URENT/ 

FCC 

/  LIMI/ 

FCC 

/T  ESC/ 

FCC 

/EDED./ 

FCC 

/  Sil  / 

FCC 

/OULD  / 

FCC 

/THIS  / 

FCC 

/LIMIT/ 

FCC 

/  BE  1/ 

FCC 

/NCREA/ 

• 

FCC 

/ SED?/ 

FCB 

EOT 

JSR 

RDAliSW 

A 

RDANSW 

BVS 

PNT104 

A 

UNTIL  V  CLEAR 

CMPA  #'Y 

A 

IF  A  <>  'Y' 

BEQ 

PNT105 

*  THEN 


GO  TO  BYE 


JMP  BYE 

PNT105  JSR  CRLF 

JSR  SCRSTR 
FCC  /PRESE/ 
FCC  /NT  PO/ 
FCC  /WER  S/ 
FCC  /UPPLY/ 
FCC  /  OUTP/ 
FCC  /UT  CU / 
FCC  /RRENT/ 
FCC  /  LIMI/ 
FCC  /T  -  / 
FCB  EOT 
LDX  #PSCURR 
JSR  RECALL 
JSR  SCRDEC 
JSR  SCRSTR 
FCC  /  / 

FCC  /  / 

FCC  /  / 

FCB  EOT 
JSR  SETCUK 
LDX  # LORES 
JSR  RECALL 
JSR  MLTPLY 
LDX  #  PS  MAX 
JSR  STORE 
LEAU  4 ,U 
RTI 


*  CRLF 

*  WRITE( '  PRESENT  POWER  SUPPLY  OUTPUT  CURRENT 

*  LIMIT  -  ') 


*  WRITE( PSCUKR) 


*  SETCUR 

*  PSM\X  PSCURR  *  LURES 


*  RETURN 
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**************************************************************************** 


THIS  IS  THE  SOFTWARE  INTERRUPT  HANDLER.  A  SOFTWARE  INTERRUPT  IS  CEN- 
'  ERATED  BY  THE  CALLINC  PROGRAM  FOR  THE  FOLLOWING  REASONS:  INVALID 
INPUT  FROM  THE  TOGCLE  SWITCH,  UNDEFINED  COMPUTER  INPUT,  AN  ATTEMPT 
AT  DIVISION  BY  ZERO,  OR  INVALID  OR  OVERLOAD  STATUS  OF  THE  A/D  CON- 
'  VERTER.  EACH  SWI  HAS  A  DEFAULT  VALUE  WHICH  IS  INHERENT  IN  THE  CALLINC 
PROCRAM.  IF  THE  DEFAULT  IS  NOT  TAKEN,  THE  PROCRAM  IS  TERMINATED. 

**************************************************************************** 


SWI 

LDA 

{10, SJ 

* 

READ(A) 

INC 

11,  S 

* 

CORRECT  RETURN  ADDRESS 

BNE 

PNT200 

INC 

10,  s 

PNT200 

TSTA 

* 

CASE 

A  OF 

BNE 

PNT201 

* 

0: 

REPEAT 

PNT202 

JSR 

CRLF 

* 

CRLF 

JSR 

SCRSTR 

* 

WRITE( 'HARDWARE 

FAILURE  . 

.  .  DEFAULT?') 

FCC 

/HARDW/ 

FCC 

/ARE  F/ 

FCC 

/AILUR/ 

FCC 

/E  .  ./ 

FCC 

/  •  DE/ 

FCC 

/FAULT/ 

FCC 

/?/ 

FCB 

EOT 

JSR 

RDANSW 

* 

RDANSW 

BVS 

PNT202 

* 

UNTIL  V  CLEAR 

BRA 

PNT203 

PNT201 

DEC 

A 

BNE 

PNT204 

* 

1: 

REPEAT 

PNT205 

JSR 

CRLF 

* 

CRLF 

JSR 

SCRSTR 

* 

WRITE( 'UNDEFINED 

COMPUTER 

INPUT  .  .  . 

* 

DEFAULT?') 

FCC 

/UNDEF/ 

FCC 

/INED  / 

FCC 

/COMPU/ 

FCC 

/TER  1/ 

FCC 

/NPUT  / 

FCC 

/.  .  ./ 

FCC 

/  DEFA/ 

FCC 

/ULT?/ 

FCB 

EOT 

JSR 

RDANSW 

* 

RDANSW 

BVS 

PNT205 

* 

UNTIL  V  CLEAR 

BRA 

PNT203 

PNT204 

DEC 

A 

BNE 

PNT206 

* 

2: 

REPEAT 

PNT207 

JSR 

CRLF 

* 

CRLF 

JSR 

SCRSTR 

* 

WKITE( 'DIVISION 

BY  ZERO  . 

.  .  DEFAULT?') 
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FCC  /D1V1S/ 

FCC  /ION  B/ 

FCC  /Y  ZER/ 

FCC  /O  .  ./ 

FCC  /  .  DE/ 

FCC  /FAULT/ 

FCC  /?/ 

FCB  EOT 

JSR  RDAi'iSW  *  RDANSW 

BVS  PNT207  *  UNTIL  V  CLEAR 

BRA  PNT203 
PNT206  DEC  A 

BNE  PNT208 

*  3:  REPEAT 

PNT209  JSR  CRLF  *  CRLF 

JSR  SCRSTR  *  WR1TE('A/D  DATA  MISSED  .  .  .  DEFAULT?') 

FCC  /A/D  D/ 

FCC  /ATA  M/ 

FCC  /1SSF.D/ 

FCC  /  .  .  / 

FCC  /.  DEF/ 

FCC  /AULT?/ 

FCB  EOT 

JSR  RDANSU  *  RDANSU’ 

BVS  PNT209  *  UNTIL  V  CLEAR 

BRA  PNT203 

*  4s  REPEAT 

PNT208  JSR  CRLF  *  CRLF 

JSR  SCRSTR  *  WR1TE( ' A/D  OVERLOAD  .  .  .  DEFAULT?') 

FCC  /A/D  0/ 

FCC  /VERLO/ 

FCC  /AD  .  / 

FCC  /.  .  D/ 

FCC  /EFAUL/ 

FCC/T?/ 

FCB  EOT 

jsr  rdansw  *  rda:;su 

BVS  PNT208  *  UNTIL  V  CLEAR 

PNT203  C11PA  #'Y  *  IF  A  -  'Y' 

BNE  PNT20B 

*  THEN 

RTI  *  RETURN 

*  ELSE 

PNT20B  JMP  BYE  *  GO  TO  BYE 


B  -  ll 


***************************************************************************** 

* 


THIS  IS  THE  NOi:  :!ASXABLE  INTERRUPT  ROUTINE.  IT  IS  CAPABLE  OF  DIS¬ 
PLAYING  THE  CONTENTS  OF  EACH  OF  THE  MPU  REGISTERS  AS  THEY  EXISTED  AT 
THE  TIME  OF  THE  INTERRUPT.  IN  ADDITION,  ANY  MEMORY  LOCATION  MAY  BE 
EXAMINED  USING  THIS  ROUTINE.  THIS  ROUTINE,  ALONC  WITH  Ail  EXTERNAL 
WORD  RECOGNIZER,  CAN  BE  USED  TO  SINGLE-STEP  THROUGH  THE  PROGRAM. 


* 

* 

* 

* 

* 

* 

*  ***************************************  ************************************* 


NMI 


JSR  CRLF 


PNT501 


I 


*  CRLF 


* 

REPEAT 

JSR  INCH 

PSUS  A 

* 

INCH 

JSR  CRLF 

* 

CRLF 

LDA  ,S+ 

BNE  PNT501 

* 

CASE 

A  OF 

JSR  OUT ST R 

FCC  /ADDR  / 
FCB  EOT 

LEAS  -2 ,S 

* 

U: 

WRITE( 'ADDR 

JSR  INHEX 

* 

INHEX 

JSR  OUTCH 

LSLA 

LSLA 

LSLA 

LSLA 

STA  ,S 

* 

. 

OUTCH 

BSR  INHEX 

* 

INHEX 

JSR  OUTCH 

ORA  ,S 

STA  ,S 

* 

OUTCH 

BSR  INHEX 

* 

INHEX 

JSR  OUTCH 

LSLA 

LSLA 

LSLA 

LSLA 

STA  1,S 

* 

OUTCH 

BSR  INHEX 

* 

uiiiEX 

JSR  OUTCH 

ORA  1,S 

STA  1,S 

JSR  OUTS 

* 

OUTCH 

LDA  l,S++] 

* 

A  [ADDR) 

JSR  OUTHEX 

BRA  PNT500 
DECA 

BNE  PNT502 

* 

OUTHEX 

JSR  OUTSTR 

FCC  /CC  / 

FCB  EOT 

* 

1: 

WRITE('CC 

LDA  ,S 

JSR  OUTHEX 

* 

WRITE(CC) 
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I  * 


BRA  PNT500 
PNT502  DECA 

BNE  PNT503 
JSR  OUTSTR 
FCC  /A  / 
FCB  EOT 
LDA  1,S 
JSR  OUTUEX 
BRA  PNT500 
PNT503  DECA 

BNE  PNT504 
JSR  OUTSTR 
FCC  /B  / 
FCB  EOT 
LDA  2,S 
JSR  OUTUEX 
BRA  PUT 500 
PNT504  DECA 

BNE  PNT505 
JSR  OUTSTR 
FCC  /DP  / 
FCB  EOT 
LDA  3,S 
JSR  OUTUEX 
BRA  PNT500 
PNT505  DECA 

BHE  PNT50U 
JSR  OUTSTR 
FCC  /X  / 
FCB  EOT 
LDA  4 ,S 
JSR  OUTUEX 
LDA  5 ,S 
JSR  OUTUEX 
BRA  PNT500 
PNT506  DECA 

b:;e  p;;t307 
JSR  OUTSTR 
FCC  /Y  / 
FCB  EOT 
LDA  b,S 
JSR  OUTUEX 
LDA  7 ,S 
JSR  OUTUEX 
BRA  PUT500 
PNT507  DECA 

BNE  PNT508 
JSR  OUTSTR 
FCC  /US  / 
FCB  EOT 
LDA  8 ,S 
JSR  OUTUEX 
LDA  9,S 
JSR  OUTUEX 


*  2:  WRITE('A  ') 

*  WRITE(A) 

*  3s  WRITE('B  ') 

*  WRITE(B) 

*  4:  WRITEC'DP  ') 

*  WRITE(DP) 

*  5:  WRITE('X  ') 

*  WRXTE(X) 


*  6:  WRITE('Y  ') 

*  WRITE(Y) 

*  7:  WRITE('US  ') 

*  WRITE(US) 
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BRA  PNT500 
PNT508  DECA 


BNE  PNT509 

JSR  OUTSTR 

* 

8: 

WRITE( ' SP  ') 

FCC  /SP  / 

FCB  EOT 

TFR  S,D 

* 

WRITE(SP) 

ADDD  f$OC 

PSHS  B 

JSR  OUTI1EX 

PULS  A 

JSR  OUTHEX 

BRA  PUTS 00 

PNT509  DECA 

BNE  PNT50A 

JSR  OUTSTR 

* 

9: 

WRITE( '  PC  ') 

FCC  /PC  / 

FCB  EOT 

LDA  IO,S 

* 

WRITE(PC) 

JSR  OUTHEX 

LDA  I1,S 

JSR  OUTHEX 

BRA  PNT500 

PNT50A  CM  PA  if  S03 

BNE  PNT50U 

• 

RTI 

* 

C: 

RETURN 

* 

FOREVER 

INHEX  JSR  INCH 

* 

INCH 

CMPA  #$09 

* 

IF  A  > 

9 

BLS  PNT5I0 

* 

THEN 

CMPA 

* 

IF 

A  - 

BNE  PNT511 

* 

THEN 

LDA  #'A 

* 

A  'A' 

BRA  PNT5I0 

* 

ELSE 

PNT511  CMPA  9' I 

* 

IF  A  =  '|' 

BNE  PNT5I2 

* 

THEN 

LDA  9' B 

* 

A  'B' 

BRA  PNT5I0 

* 

ELSE 

PNT5I2  CMPA  #'Y 

* 

IF  A  *  'Y' 

BNE  PNT513 

* 

THEN 

LDA  #'D 

* 

A  'D 

BRA  PNT510 

* 

ELSE 

PNT5I3  CMPA  it' N 

* 

IF  A  ■ 

BNE  PNT51A 

* 

THEN 

LDA  #'E 

* 

A  : 

BRA  PNT5I0 
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PNT514  CMPA  tf'R 

BNE  PNT510 

LDA  #'F 
PIJT510  RTS 


* 


ELSE 
IF  A  - 

THEN 

A 


B 
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****************************************************************************** 


*  * 

*  THIS  IS  THE  RESET  ROUTINE.  UPON  POWER-UP  OR  AN  MPU  RESET,  THIS  * 

*  ROUTINE  INITIALIZES  ALL  MPU  REGISTERS,  PIA  PORTS,  AND  PERIPHERAL  EQUIP-  * 

*  MENT.  THIS  ROUTINE  ALSO  PROMPTS  THE  USER  FOR  ALL  INFORMATION  ABOUT  THE  * 

*  EXPERIMENT  NECESSARY  FOR  TEMPERATURE  CONTROL.  A  LIMITED  AMOUNT  OF  ERROR  * 

*  CHECKING  IS  DONE  BY  THIS  ROUTINE  TO  INSURE 'THAT  THE  INPUT  IS  REASONABLE.  * 

*  * 
****************************************************************************** 


LDS 

#S START 

LDU 

#USTART 

ANDCC  #$BF 

CLR 

PSCRO 

CLR 

PSCR1 

CLR 

PSCR2 

LDA 

#$OF 

STA 

PSFLCS 

LDD 

#$FFFF 

STD 

PSDATO 

LDA 

#505 

STA 

PSCRO 

LDD 

#$0A2C 

STD 

PSCR1 

LDD 

#$0000 

PSHU  D 

PStlU  D 

JSR 

SETPWR 

LDD 

#$0000 

STD 

U1 

STD 

Ul+2 

STD 

U2 

STD 

U2+2 

STD 

U3 

STi) 

U3+2 

STD 

UA 

STD 

UA+2 

STD 

U5 

STD 

U5t2 

CLR 

DISPCO 

CLR 

DISPC1 

LDD 

#$OFFF 

STD 

D  IS  PAD 

LDD 

#$3C2C 

STD 

DISPCO 

JSR 

CRLF 

LDA 

#$  3A 

STA 

DISPCO 

CLR 

KEYCR 

LDA 

#$00 

STA 

KEY BED 

*  INITIALIZE  STACKS 

*  UNMASK  FAST  INTERRUPT 

*  INITIALIZE  POWER  SUPPLY 

*  SET  DDR 


*  ENABLE  POWER  SUPPLY  OVERLOAD  INTERRUPT 

*  ENABLE  POWER  SUPPLY  UPDATA 

*  ZERO  POWER  SUPPLY 


*  INITIALIZE  POWER  SUPPLY  HISTORY 


*  INITIALIZE  DISPLAY 

*  SET  DDR 


*  DISABLE  DISPLAY,  SET  DISPLAY  UPDATE 

*  CRLF 

*  ENABLE  DISPLAY 

*  INITIALIZE  KEYBOARD 

*  SET  DDR 
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LDA  #$06  *  SET  EDCE,  DISABLE  INTERRUPT 

STA  KEYCR 

*  INITIALIZE  COMPUTER 

CLR  COMORO  *  SET  DDR 

CLR  COMCRI 
LDD  #$0000 
STD  COMDAO 

LDD  #$043C  *  DISABLE  INTERRUPT,  SIGNAL  INVALID 

STD  COMORO 

*  INITIALIZE  SENSORS,  A/D 

CLR  SENCRO  *  SET  DDR 

CLR  SENCRl 
CLR  SEMCR2 
CLR  SENCR3 
LDD  #$OFFF 
STD  SENFLG 
LDD  #$0000 
STD  SENDAO 

LDD  #$043C  *  DISABLE  SENSOR  SELECT(CNTL) 

STD  SENCRO 

LDD  #$0404  *  SET  EDGE 

STD  SENCR2 

CLR  SENFLG  *  TURN  SENSOR  POWER  OFF 

LDA  #$A0  *  HOLD  A/D,  DISABLE  A/D  INPUT,  DISABLE  SENSOR  SELECT, 

STA  SENSEL  «  SET  GAIN  -  1 

LDA  #$34  *  ENABLE  SENSOR  SELECT(CMTL) 

STA  SEN'CRl 

*  REPEAT 

PNT300  JSR  CRLF  *  CRLF 

JSR  SCRSTR  *  WRITEOIOU  MANY  SENSORS  WILL  BE  USED(  1 ,2  ,3 ,4  )? ' ) 

FCC  /HOW  ‘M 
FCC  / ANY  S/ 

FCC  /EtISOR/ 

FCC  /S  WIL/ 

FCC  /  L  BE  / 

FCC  /USED(/ 

FCC  / 1 ,2 ,3/ 

FCC  /  ,4)?/ 

FCB  EOT 

JSR  RUDIG  *  RDDIC 

bvs  PNT3U0  *  until  v  clear 

TSTA  *  IF  (A-0)  OR  (A>4) 

BEQ  PNT30I 
CMPA  #$04 
BLS  PNT302 

*  THEN 

PNT301  JSR  CRLF  *  CRLF 

JSR  SCRSTR  *  WRITE(' INVALID  INPUT  ') 

FCC  /INVAL/ 

FCC  /ID  IN/ 

FCC  /PUT  / 

FCC  /  / 

FCC  /  / 

FCC  /  / 


B 
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FCB  EOT 

BRA  PMT300 

* 

CO  TO  PNT300 

PNT302  STA  NUMSEN 

* 

NUMSEN  A 

CLR  ,-S 

* 

PR1MFND  FALSE 

LDA  #$01 

* 

FOR  1  1  TO  NUMSEN  DO 

PSHS  A 

PNT303  LDA  ,S 

CMPA  NUMSEN 
BUI  PNT304 

LDY  f SEIJI 

* 

Y  ADDR( SEN( I) ) 

LDA  ,S 

DEC  A 

LDB  #$11 

MUL 

LEAY  B, Y 

LDA  ,S 

* 

SEN(1).IJUM  1 

STA  ,Y 

* 

SEN( I) . POL  POSITIVE 

* 

SEN(1).S1C  VOLTACE 

* 

SEIJ(  1).  PV*RR(}U  :■  FALSE 

* 

SEN( 1) .TYPE  PRIMARY 

LDA  1,S 

* 

IF  PRIMFND 

* 

THEN 

BNE  PUT305 

* 

CO  TO  PNT305 

* 

ELSE 

REPEAT 

PNT306  JSR  CRLF 

* 

CRLF 

JSR  SCRSTR 

* 

WRITE('IS  SENSOR  ') 

FCC  /IS  SE/ 
FCC  / US OR  / 
FCB  EOT 

LDA  ,S 

* 

WRITE( I) 

JSR  SCROCll 

JSR  SCRSTR 

* 

WRITE( '  THE  PRIMARY  SENSORCY, 

FCC  /  THE  / 
FCC  / PR IMA/ 
FCC  /RY  SE/ 

fcc  /:;so:<(/ 

FCC  / Y,M) ?/ 
FCB  EOT 

JSR  ROANS'.* 

* 

RDAJJSU 

BVS  PIJT306 

* 

UNTIL  V  CLEAR 

CMPA  #'  Y 

* 

IF  A  -  'Y' 

BNE  PUT305 

* 

THEN 

DEC  1,S 

A 

PRIMFND  TRUE 

* 

REPEAT 

PNT307  JSR  CRLF 

* 

CRLF 

JSR  SCRSTR 

* 

WRITE( 'does  sensor  ') 

FCC  /DOES  / 

FCC  /SEIJSO/ 

FCC  /R  / 

FCB  EOT 

LDA  ,S 

* 

WRITE(I) 

JSR  SCROCM 

B 


IB 


JSR  SCRSTR 

FCC  /  HAVE/ 
FCC  /  A  PO/ 
FCC  /SITIV/ 
FCC  /E  SLO/ 
FCC  /PE( Y,/ 
FCC  /N)?/ 

FCB  EOT 

* 

WRITE( '  HAVE 

A  POSITIVE  SLOPE(Y.N)?') 

JSR  RDANSU 

* 

RDANSW 

BVS  PNT307 

* 

UNTIL  V  CLEAR 

CMPA  #'N 

* 

IF  A  -  'N' 

BME  PNT303 

* 

THEN 

LDA  ,Y 

ORA  #$80 

* 

SEN(I).POL 

NECATIVE 

STA  ,Y 

* 

REPEAT 

PNT308  JSR  CRLF  *  CRLF 


JSR  SCRSTR 

FCC  /DOES  / 
FCC  /SEN SO/ 
FCC  /R  / 

FCB  EOT 

* 

WRITE( 'DOES  SENSOR  ') 

LDA  ,S 

* 

WRITE(I) 

JSR  SCROCH 

• 

JSR  SCRSTR 

* 

WRITE('  PRODUCE  A  VOLTACE 

FCC  /  PROD/ 
FCC  /UCF.  A/ 
FCC  /  VOLT/ 
FCC  /ACE  S/ 
FCC  /IGNAL/ 

FCC  /(y,:d/ 

* 

SICNAL(Y.N)?' 

FCC  /?/ 

FCB  EOT 

JSR  RDANSW 

* 

RDANSW 

BVS  PNT303 

* 

UNTIL  V  CLEAR 

C.'IPA  #  *  Y 

BNE  PNT309 

* 

IF  A  -  'Y' 

* 

THEN 

LDA  ,S 

DECA 

LSLA 

LSLA 

ORA  #$30 

STA  PRINRY 

BRA  PNT30A 

A 

PRIMARY  VOLT:  I- 

*  ELSE 

PNT309  LOA  ,Y  *  SEN(I).SIC  CURRENT 

ORA  #$40 
STA  ,Y 

LDA  ,S  *  PRIMARY  CURRENT: I 

DECA 

LSLA 

LSLA 


ORA  #$90 
STA  PRIMRY 


* 

PNT30B  JSR  CRLF  * 

JSR  SCRSTR  * 

FCC  /DOES  / 

FCC  /SEi'ISO/ 

FCC  /R  / 

FCB  EOT 

LDA  ,S  * 

JSR  SCR0C1I 
JSR  SCRSTR  * 

FCC  /  REQU/  * 


FCC  /IRE  1/ 
FCC  /NTERN/ 
FCC  /AL  PO/ 
FCC  /WER( Y/ 


FCC  /,?!)?/ 

FCB  EOT 

JSR  RDANSU  * 

BVS  PNT30B  * 

CMPA  #'  Y  * 

BNE  PNT30A 

A 

LDA  , Y  k 

ORA  #$20 
STA  ,  Y 

LDA  #$10  a 


LDB  ,S 
PNT30C  LSRA 
DECB 

BNE  P:iT30C 
ORA  SENDAO 
STA  SENDAO 
BRA  POT30A 

* 

PNT305  LDA  , Y  a 

ORA  #$10 
STA  ,  Y 

A 

A 

PNT30D  JSR  CRLF  a 

JSR  SCRSTR  a 

FCC  /OVER  /  a 

FCC  /WHAT  / 

FCC  /RANGE/ 

FCC  /  SHOU/ 

FCC  /LD  SE/ 

fcc  /r.’son  / 

FCB  EOT 

LDA  ,S  a 

JSR  SCROCH 

JSR  SCRSTR  a 

fcc  /  r,n  u/ 


REPEAT 

CRLF 

WRITE( 'DOES  SENSOR  ') 


WRITE(I) 

WRITE( '  REQUIRE  INTERNAL 
POWER(Y.N)?') 


RDANSW 

UNTIL  V  CLEAR 
IF  A  -  'Y' 

THEN 

SEN( I) . PWRRQD  :«  TRUE 


SEKPWR(I)  o.V 


ELSE 

SE.;(  I). TYPE  SECONDARY 


REPEAT 

REPEAT 

CRLF 

WRITE( 'OVER  WHAT  RANCE  SHOULD 
SENSOR  ') 


VRITE(I) 

WRITE( '  BE  USED?  START  POINT?') 


FCC  /SED?  / 
FCC  /  ST  A/ 
FCC  /RT  PO/ 
FCC  /I NT?/ 

FCB  EOT 

JSR  RDKEY 

* 

RDKEY 

BVS  PNT30D 

* 

UNTIL  V  CLEAR 

LEAX  1 , Y 

JSR  STORE 

* 

SEN( I) .URNC1  |U) 

LEAU  4 ,U 

* 

REMOVE  I U] 

JSR  CRLF 

* 

CRLF 

JSR  OUTSTR 

* 

WRITE( 'END  POINT?') 

FCC  /END  P/ 
FCC  /OINT?/ 
FCB  EOT 

JSR  RDKEY 

* 

/ 

RDKEY 

BVS  PNT30D 

* 

UNTIL  V  CLEAR 

LEAX  5, Y 

JSR  STORE 

* 

SEN(I).URNC2  [U] 

LEAU  4 ,U 

* 

REMOVE  [U] 

PSiiS  Y 

* 

if  sen(i).uri:ci  -  sen(i).ur:;g2 

LEAX  1,Y 

LEAY  5 ,Y 

JSR  C1PXY 

BNE  PN030E 

• 

* 

THEN 

PULS  Y 

JSR  CRLF 

* 

CRLF 

JSR  SCRSTR 

FCC  /INVAL/ 
FCC  /ID  RA/ 
FCC  /KCE  / 
FCC  /  / 
FCC  /  / 
FCC  /  / 

* 

WRITE('  INVALID  R.VJCE  ') 

FCB  EOT 

BRA  p:iT30D 

it 

CO  TO  PN730D 

PN030E  PULS  Y 

* 

REPEAT 

PNT30E  JSR  CRLF 

* 

CRLF 

JSR  SCRSTR 

FCC  /DOES  / 
FCC  /SENSO/ 
FCC  /R  / 

FCB  EOT 

* 

WRITE( ' DOES  SENSOR  ') 

LDA  ,S 

JSR  SCROCH 

* 

WRITE(I) 

JSR  SCRSTR 

* 

WRITEC'  HAVE  A  POSITIVE  SLOPE(Y.N)? ' ) 

FCC  /  HAVE/ 
FCC  /  A  PO/ 
FCC  /SITIV/ 
FCC  /E  SLO/ 
FCC  /PE( Y, / 
FCC  /J)?/ 
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FCB  EOT 

JSR  RDANSW  * 

BVS  PNT30E  * 

CMP  A  #'N  * 

BNE  PNT30F 

* 

LDA  ,Y  * 

ORA  #$30 
STA  ,Y 

* 

PNT30F  JSR  CRLF  * 

JSR  SCRSTR  * 

FCC  /DOES  / 

FCC  /SEN SO/ 

FCC  /R  / 

FCB  EOT 

LDA  ,S  * 

JSR  SCR0CI1 

JSR  SCRSTR  * 


FCC  /  PROD/ 
FCC  /UCE  A/ 
FCC  /  VOLT/ 
FCC  /ACE  S/ 
FCC  /  ICt.'AL/ 
FCC  /(Y,M)/ 


FCC  /?/ 

FCB  EOT 

JSR  RDANSW  * 

BVS  PNT30F  * 

CUP  A  tru  * 

BNE  PNT3UA 

* 

LDA  ,  Y  * 

ORA  #$40 
STA  ,Y 

* 

PNT310  JSR  CRLF  * 

JSR  SCRSTR  * 

FCC  /DOES  / 

FCC  /SENSO/ 

FCC  /K  / 

FCB  EOT 

LDA  ,S  * 

JSR  SCROCH 

JSR  SCRSTR  * 


FCC  /  REQU/ 

FCC  /IRE  1/ 

FCC  /NTERN/ 

FCC  /AL  PO/ 

FCC  /t/EK(Y/ 

FCC  / ,N)?/ 

FCB  EOT 

JSR  RDANSW  * 

BVS  PNT310  * 


RDANSW 

UNTIL  V  CLEAR 
IF  A  -  'N' 

THEN 

SEN( I). POL  NEGATIVE 


REPEAT 

CRLF 

WRITE( 'DOES  SENSOR  ') 


/ 

WRITE(I) 

WRITE('  PRODUCE  A  VOLTACE  SICNAL( Y,N)? ') 


RDANSW 

UNTIL  V  CLEAR 
IF  A  -  'N' 

THEN 

SENCD.SIG  CURRENT 


REPEAT 

CRLF 

WRITE ( 'DOES  SENSOR  ') 


WRITE(I) 

WRITE ( '  REQUIRE  INTERNAL  POWER(Y.N)?') 


RDANSW 

UNTIL  V  CLEAR 
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CMP  A  #'Y  * 

BN E  PNT30A 

* 

LDA  ,Y  * 

ORA  #§20 
STA  ,  Y 

* 

* 

PNT311  JSR  CRLF  * 

JSR  SCRSTR  * 

FCC  /OVER  /  * 

FCC  /l/UAT  / 

FCC  /RANGE/ 

FCC  /  SHOU/ 

FCC  /LD  SE/ 

FCC  /NSOR  / 

FCB  EOT 

LDA  ,S  * 

JSR  SCROCH 
JSR  SCRSTR  * 

FCC  /  BE  P/  * 

FCC  /OWERE/ 

FCC  / D?  / 

FCC  /START/ 

FCC  /  POIN/ 


FCC  /T?/ 

FCB  EOT 

JSR  RDKEY  * 

BVS  PNT3 1 1  * 

LEAX  9 , Y  * 

JSR  STORE 
LEAU  4 ,U  * 

JSR  OUTSTR  * 

FCC  /END  P/ 

FCC  /OINT?/ 

FCB  EOT 

JSR  RDKEY  * 

BVS  PNT311  * 

LEAX  13, Y  * 

JSR  STORE 
LEAU  4,U  * 

PSHS  Y  * 

LEAX  9 , Y  * 

LEAY  1 , Y  * 

JSR  CMPXY  * 


BHI  PT0304 
LEAY  4,Y 
JSR  CMPXY 
BHI  PT0304 
LEAX  4 ,X 
JSR  CMPXY 
BLO  PTU304 
LEAY  -4, Y 
JSR  CMPXY 


IF  A  -  'Y' 

THEN 

SEN( I) . PWRRQD  TRUE 


REPEAT 

REPEAT 

CRLF 

WRITE( 'OVER  WHAT  RANCE  SHOULD 
SENSOR  ') 


WRITE(I) 

WRITE( '  BE  POWERED?  START 
POINT?') 


RDKEY 

UNTIL  V  CLEAR 
SEN( I) . PRNC1  lUj 

REMOVE  [UJ 
WRITE( 'END  POINT?') 


RDKEY 

UNTIL  V  CLEAR 
SEN(I).PRNC2 

REMOVE  [UJ 
IF  (SEN(I).PRNCl 
OR  (SEH(i).PRNCl 
OR  (SEN(I).PRNC2 
OR  ( SEN( I) . PRNG2 


IUJ 


>  SEN(I).URNGl) 

>  sen(i).ur::ci) 

<  SEN( I) . UR.IG2 ) 

<  SEN(I).URNCl) 
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BHS  PT0305 


FCC  /IED  ./ 

FCC  /  .  .  / 

FCC  /REENT/ 

FCC  /ER  DA/ 

FCC  /TA  / 

FCC  /  / 

FCC  /  / 

FCC  /  / 

FCB  EOT 

BRA  PNT300  *  GO  TO  PNT300 

*  REPEAT 

PNT312  JSR  CRLF  *  CRLF 

JSR  SCRSTR  *  WRITE('WHAT  IS  THE  DESIRED  STEADY-STATE  ERROR?') 

FCC  /WHAT  / 

FCC  /IS  Tit/ 

FCC  /E  DES/ 

FCC  /IRED  / 

FCC  /STEAD/ 

FCC  /Y-STA/ 

FCC  /TE  ER/ 

FCC  /ROK?/ 

FCB  EOT 

JSR  RDKEY  *  RDKEY 

BVS  PNT312  *  UNTIL  V  CLEAR 

ldx  Terror 
JSR  STORE 

LEAU  4,U  *  REMOVE  [U] 

JSR  SETCUR  *  SET  OUTPUT  CURRENT  LIMIT 

*  REPEAT 

PNT313  JSR  CRLF  *  CRLF 

JSR  SCRSTR  *  WRITE('UHAT  IS  THE  LOAD  RESISTANCE  IN’  OHMS?') 

FCC  /WHAT  / 

FCC  /IS  TH/ 

FCC  /E  LOA/ 

FCC  /D  RES/ 

FCC  /ISTAN/ 

FCC  /CE  IN/ 

FCC  /  OHMS/ 

FCC  /?/ 

FCB  EOT 

JSR  RDKEY  *  RDKEY 

BVS  PNT313  *  UNTIL  V  CLEAR 

LDX  tfLDRES  *  LDRES  lU] 

JSR  STORE 

JSR  MLTPLY  *  CU]  PSCURR*LDRES 

LEAX  ,U 

LDD  # $A800  *  IF  [U]  >  50000 

PSHU  D 

LDD  #$4861 

PStlU  D 

LEAY  ,U 

JSR  CMPXY 

BLS  PT0314 

*  THEN 
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PS MAX  50000 


LDX  tfPSMAX 
JSR  STORE 
LEAU  8,0 
BRA  PNT315 

PT0314  LEAU  4,0 

LDX  # PS MAX 
JSR  STORE 
LEAO  4,0 

PNT315  CLR  SWCHCR 
LDA  #$00 
STA  SWITCH 
LDA  #$0F 
STA  SWCHCR 
JSR  RDSWCH 
ANDCC  #$00 


P.NT3I4  JSR  CRLF 

JSR  OOTSTR 
FCC  /READY/ 
FCB  EOT 
BRA  PNT314 


*  REMOVE  £0]  ,  t  L' ] 

*  ELSE 

*  REMOVE  [0] 

*  PSMAX  [Oj 

*  REMOVE  [01 

*  INITIATE  SWITCHES 

*  SET  DDR 


*  ENABLE  SWITCH  INTERRUPT 

*  SET  SWITCH  STATUS 

*  ENABLE  ALL  INTERRUPTS 

*  INDICATE  READY  AND  WAIT 

*  REPEAT 

*  CRLF 

*  WRITE ('READY') 


*  FOREVER 


>  A 


********************** A********************** A*********************® ********** 


*  * 

*  THIS  IS  THE  MAIt:  CONTROLLER  PROGRAM.  IT  IS  CAPABLE  OF  CHANGING  AND  * 

*  CONTROLLING  TEMPERATURE  BASED  UPON  THE  INPUT  FROM  THE  THERMOMETERS,  THE  * 

*  OUTPUT  TO  THE  HEATING  COIL,  AND  THE  INPUT  FROM  EITHER  THE  LSI- 11  COMP-  * 

*  UTER  OR  THE  KEYPAD.  OTHER  THAN  THE  CONTROL  ITSELF,  TWO  OTHER  FORMS  OF  * 

*  OUTPUT  ARE  PRODUCED:  (1)  A  SIGNAL  TO  THE  LSI-11  INDICATING  WHETHER  THE  * 

*  CONTROLLER  IS  CHANCING  TEMPERATURE  OR  WHETHER  IT  IS  MAINTAINING  THE  PRE-  * 

*  SENT  TEMPERATURE,  AND  (2)  A  DISPLAY  OF  THE  NUMBER  OF  THE  PRESENT  THCR-  * 

*  MOMETER  BEING  MONITORED,  THE  LATEST  DIRECTION  OF  CHANGE  IN  THE  THERMOM-  * 

*  ETER  INPUT,  AND  THE  PRESENT  THERMOMETER  INPUT.  THIS  ROUTINE  IS  EXITED  * 

*  ONLY  FROM  AN  INTERRUPT  OR  A  RESET.  * 

*  * 


****************************************************************************** 


COMINT  ORCC  #$50 

LDS  #S START 
LDU  tfU START 
LDA  #$A0 
STA  SENSEL 
LDA  #$3C 
STA  COMCR1 

<  JSR  RDCOMP 

BRA  CNTRL 


*  MASK  INTERRUPTS 

*  RESET  STACKS 

*  DISABLE  A/D  INPUT,  HOLD  A/D,  DESELECT  SENSORS 

*  SICNAL  INVALID 

*  READ  COMPUTER  INPUT 

*  GO  TO  CNTRL 


KEYINT  ORCC  tf$ 50 

* 

MASK  INTERRUPTS 

LDS  tfSSTART 

★ 

RESET  STACKS 

LDU  //USTAKT 

LDA  f/$AO 

* 

DISABLE  A/D  INPUT,  HOLD  A/D,  DESELECT  SENSORS 

STA  SENSEL 

LDA  #$3C 

* 

SIGNAL  INVALID 

STA  C0MCR1 

JSR  RDKEY 

* 

READ  KEYBOARD  INPUT 

CNTRL  ANDCC  f/$AF 

* 

UNMASK  INTERRUPTS 

LDX  #YD 

JSR  STORE 

* 

YD  :«  (U] 

LEAU  4,U 

* 

REMOVE  ( U] 

LDA  ROTARY 

* 

IF  ROTARY  -  0 

BNE  PNT4U0 

* 

THEN 

LDA  #$01 

PSHS  A 

* 

FOR  I  :«  1  TO  NUMSEN  DO 

PNT401  LDA  ,S 

CMP  A  NUMSEN 
Bill  PNT402 

LDY  #SEN1 

DEC  A 

LDB  #$11 

It'JL 

* 

Y  ADDR( SEN( I) ) 

LEAY  B, Y 

LDA  ,  Y 

ANDA  #$40 

BEQ  PNT403 

* 

IF  SEN( I) .TYPE  -  SECONDARY 

3 
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i 


I 


PSHS  Y 
LDX  «YD 
LEAY  1 , Y 
JSR  CMPXY 
BLS  PNT404 

LEAY  4,Y 
JSR  CMPXY 
PULS  Y 
Bill  PNT403 

LEAS  1,S 


I 


FCC  /INVAL/ 


THEN 

IF  YD  >  SEN(I).URNC1 


THEN 

IF  YD  <-  SEN( I ).UKNC2 


THEN 


BRA 

PNT405 

* 

CO  TO  PNT405 

A 

ELSE 

PNT404 

LEAY  4 , Y 

* 

IF  YD  >  SEH( I) .UKNC2 

JSR 

CMPXY 

PULS  Y 

BLS 

PNT403 

»  A 

THEN 

LEAS  1,S 

BRA 

PNT405 

A 

CO  TO  PNT405 

PNT403 

INC 

,s 

BRA 

PNT401 

PNT402 

LEAS  1,S 

* 

REPEAT 

PNT406 

JSR 

CRLF 

A 

CRLF 

JSR 

SCRSTR 

A 

WRITEC 'SECONDARY  SENSOR  UNDETERMINED  . 

FCC 

/SECOH/ 

A 

WHICH  SENSOR  SHOULD  BE  USED?') 

FCC 

/DARY  / 

FCC 

/SENSO/ 

FCC 

/R  UND/ 

FCC 

/ETERM/ 

FCC 

/INEO  / 

FCC 

/.  .  •/ 

FCC 

/  WUIC/ 

FCC 

/II  SEN/ 

FCC 

/SOR  S/ 

FCC 

/110ULD/ 

FCC 

/  BE  U/ 

FCC 

/S£U?  / 

FCB 

EOT 

ORCC  tf$10 

A 

MASK  INTERRUPT 

JSR 

RDDIG 

A 

RDDIG 

ANDCC  #$EF 

A 

UNMASK  INTERRUPT 

BVS 

PNT406 

A 

UNTIL  V  CLEAR 

TST 

A 

A 

IF  (A  -  0)  OR  (A  >  NUMSEN) 

BEQ 

PMT407 

CMPA  NUMSEN 

BLS 

PNT408 

A 

THEN 

PNT407 

JSR 

CRLF 

A 

CRLF 

JSR 

SCRSTR 

A 

WRITE(' INVALID  INPUT  ') 
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it 


FCC  /ID  IN/ 
FCC  /PUT  / 
FCC  /  / 

FCC  /  / 

FCC  /  / 

FC8  EOT 
BRA  PNT406 
PNT408  LDY  tfSENl 
DECA 
LDB  #$11 
MUL 

LEAY  B,Y 
BRA  PNT405 

PNT400  CMPA  NUMSEN 
BLS  PNT409 

LDY  #SEN1 
LDA  NUMSEN 
DECA 
LDB  #$11 
MUL 

LEAY  B,Y 
BRA  P;iT4U5 

PNT409  LUY  #SEN1 
DECA 
LDB  #$11 
MUL 

LEAY  B,Y 
PNT405  LDA  ,Y 

ANDA  #$07 
DECA 
LSLA 
LSLA 
LDB  ,  Y 
A.'IDB  #$40 
BEg  PNT40A 
ORA  #$10 
PNT40A  ORA  #$00 

STA  SECDRY 
JSR  PWRSEN 
CLR  ,-S 
LEAS  -12, S 
PNT40B  LDA  12,S 

BEQ  PNT40C 

LDA  SECDRY 
STA  SENSEL 
BRA  PNT4UD 

PNT40C  LDA  PRIMKY 
STA  SENSEL 

p::t4ud  and  a  #$oc 


*  GO  TO  PNT406 

*  Y  ADDR(SEN(A)) 


*  ELSE 

*  IF  ROTARY  >  NUMSEN 

*  THEN 

*  Y  ADDR( SEN ( NUMSEN ) ) 


«  ELSE 

*  Y  ADDR(SEN( ROTARY)) 


*  SECONOART  :»  SEW(Y).SIC:SEN(Y).NUM 


*  POWER  SENSORS 

*  SECCNTKL  FALSE 

*  RESERVE  N ,K,SENNO,  POL,  YP.YPMl 

*  IF  SECCNTRL 

*  THEN 

*  SENSEL  SECDRY 


*  ELSE 

*  SENSEL  PRIMRY 

*  Y  se::sor(s::::sel) 
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LSRA 
LSRA 
LOB  #$ll 
MUL 

LDY  #SEN1 
LEAY  B,Y 

LOB  ,Y  *  POL  POL( SENSOR) 

SEX 

STA  8 ,S 

ANDB  #$07  *  SENNO  S£NN0( SENSOR) 

STB  9 ,S 

LDA  #$FF  *  LET  RELAYS  BOUNCE 

PNT40E  DECA 

BNE  PNT40E 

LDA  SENSEL  *  ENABLE  A/D  INPUT 

ANDA  #$7F 
STA  SEiJSEL 

LDD  SENDAO  *  CLEAR  A/D  DATA  FLAC 

LDA  SENSEL  *  RUN  A/D 

ORA  #$40 
STA  SENSEL 

ORCC  #$10  *  MASK  INTERRUPTS 

LDD  >U4+2  *  U5  U4 

STU  >U5+2 

LUD  >U4 

STD  >U5 

LDD  >U3+2  *  U4  U3 

STD  >U4+2 
LDD  >U3 
STD  >U4 

LDD  >U2+2  *  U3  U2 

STD  >U3+2 
LDD  >U2 
STD  >U3 

LDD  >Ul+2  *  U2  U1 

STD  >U2+2 
LDD  >U1 
STD  >U2 

LDD  >U0+2  *  UO  UO 

STD  >Ul+2 
LDD  >U0 
STD  >U1 

ANDCC  #$EF  *  U*;:tASK  INTERRUPTS 

JSR  RDSEN  *  RDSEN 

LDA  12, S  *  IF  SECCNTKL 

BEQ  PNT40F 

*  THEN 

LDX  #YD  *  YD  [U] 

JSR  STORE 

PNT40F  LDX  f/YS  *  YS  lUj 

JSR  STORE 

LEAX  ,S  *  YP  :«  (Uj 

JSR  STORE 

JSR  CKLF  *  CRLF 
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LDA  9,S 
JSK  OUTCH 
JSR  OUTS 
JSR  OUTS 
JSR  COPY 
JSR  OUTDtC 
LDA  8,S 
8 PL  PNT410 

LEAX  ,U 
JSR  CMPXO 
BNE  PNT411 

LEAU  4,U 
JSR  PMAXNO 
BRA  PNT4 10 

PNT4U  JSR  INVKSE 
PNT410  LUX  #Y0 

JSR  STORE 
LDX  #Y1 
JSR  STORE 
LDX  #Y2 
JSR  STORE 
LDX  #Y3 
JSR  STORE 
LDX  #Y4 
JSR  STORE 
LEAU  4 ,U 
LDA  12, S 
BEQ  P.VT412 

LDA  <($13 
STA  11,S 
LDA  #$34 
STA  COMCRl 
BRA  P.NT4  13 

PNT412  CLR  U,S 
PNT413  CLR  10, S 

PNT430  LDA  SEt.’SEL 
ORA  #$40 
STA  SEfiSEL 
LDX  #Y4  * 

JSR  CMPXO 
BEq  PNT414 
LDX  #U5 
JSR  CMPXO 
Btq  PNT4I4 

* 

LDX  #U3  * 

JSR  RECALL  * 

LED  #$0000 


*  write(se::sum) 

*  WR1TE( *  *) 

*  WRITE(YP) 

*  IF  POL  -  NECATIVE 


THEN 


IF  [U]  -  0 

THEN 

REMOVE 

IU] 

[U] 

P.1AXN0 

YO 

ELSE 

IU] 

lu] 

I/IU) 

Yl 

[U] 

Y2 

IU] 

Y3  s- 

IUJ 

Y4 

[U] 

REMOVE  (U) 

IF  SECCNTL 

THEN 

N  :«  :UXN(19) 
SICNAL  VALID 


ELSE 
N  0 
K  0 
REPEAT 
RUN  A/D 


IF  ( Y4  <>  0)  AND  (U5  <>  0) 


THEN 

IU]  (*5  POINT*) 

U3 
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PSHU  D 

LDD  #$41 CO 
PSHU  D 

* 

4 

JSR  MLTPLY 

* 

* 

LDX  #U4 

JSR  RECALL 

* 

U4 

LDX  #Y3 

JSR  RECALL 

* 

Y3 

JSR  MLTPLY 

* 

* 

LDX  #Y4 

JSR  RECALL 

* 

Y4 

JSR  INVRSF. 

* 

1/X 

JSR  MLTPLY 

* 

* 

JSR  PLUS 

* 

+ 

LDX  #U4 

JSR  RECALL 

* 

U4 

JSR  COPY 

* 

U4 

JSR  MLTPLY 

* 

* 

LDX  #U5 

JSR  RECALL 

* 

U5 

JSR  INVRSE 

* 

1/X 

JSR  MLTPLY 

* 

* 

JSR  NF.OATF. 

* 

CHS 

JSR  PLUS 

* 

+ 

LDX  #U4 

JSR  RECALL 

it 

U4 

JSR  COPY 

it 

U4 

JSR  MLTPLY 

it 

* 

LDX  #U5 

JSR  RECALL 

it 

U5 

JSR  INVRSE 

it 

1/X 

JSR  MLTPLY 

H 

* 

JSR  MLTPLY 

it 

* 

LDX  #U2 

JSR  RECALL 

it 

U2 

LDX  #U4 

JSR  RECALL 

it 

U4 

JSR  MLTPLY 

it 

* 

LDX  #U3 

JSR  RECALL 

it 

U3 

JSR  COPY 

it 

U3 

JSR  MLTPLY 

it 

* 

JSR  PLUS 

it 

+ 

LDD  #$0000 
PSHU  D 

LDD  #$C160 
PSHU  D 

it 

-3 

JSR  MLTPLY 

* 

* 

JSR  PLUS 

* 

+ 

LDX  #U3 

JSR  RECALL 

it 

U3 

LDX  #Y3 

JSR  RECALL 

it 

Y3 

JSR  MLTPLY 

it 

* 

B 


LDD  #$0000 
PSUU  0 

LDD  #$4160 
PSHU  D 

* 

3 

JSR  MLTPLY 

* 

* 

LDX  #U4 

JSR  RECALL 

* 

U4 

LDX  #Y2 

JSR  RECALL 

* 

Y2 

JSR  MLTPLY 

* 

* 

JSR  PLUS 

* 

+ 

LDX  #U4 

JSR  RECALL 

* 

U4 

JSR  MLTPLY 

* 

* 

LDX  #Y4 

JSR  RECALL 

* 

Y4 

JSR  INVKSE 

* 

1/X 

JSR  MLTPLY 

* 

* 

JSR  NF.CATE 

* 

CHS 

JSR  PLUS 

* 

+ 

LDX  #U4 

JSR  RECALL 

* 

U4 

JSR  MLTPLY 

* 

* 

LUX  fr‘U5 

JSR  RECALL 

* 

U5 

JSR  INVRSE 

* 

1/X 

JSR  MLTPLY 

* 

* 

LDX  #U4 

JSR  RECALL 

* 

U4 

LDX  #U1 

JSR  RECALL 

* 

U1 

JSR  MLTPLY 

* 

* 

LDX  #U3 

JSR  RECALL 

* 

U3 

LDX  #U2 

JSR  RECALL 

* 

U2 

JSR  MLTPLY 

* 

* 

JSR  PLUS 

* 

+ 

LDD  #$0000 
PS:U  U 

LDD  #$4140 

pr.ru  I) 

* 

2 

JSR  MLTPLY 

* 

* 

JSR  PLUS 

* 

+ 

LUX  #U2 

JSR  RECALL 

* 

U2 

LDX  #Y3 

* 

Y3 

JSR  MLTPLY 

* 

* 

LUX  #U 3 

JSR  RECALL 

* 

U3 

LDX  #Y2 

* 

Y2 

JSR  MLTPLY 

* 

* 

JSR  PLUS 

* 

+ 

LUX  -J  U4 

* 

L'4 

JSR  RECALL 

JSK  JtLTPLY  *  * 

LDD  #§0000  *  2 

PSHU  D 
LDD  #$4140 
PSHU  D 

JSR  MLTPLY  *  * 

LDX  #U3  *  (13 


JSR  RECALL 

JSR  COPY  *  U3 

JSR  MLTPLY  *  * 

LDX  #Y3  *  Y3 

JSR  RECALL 

JSR  MLTPLY  *  * 

JSR  PLUS  *  + 

LDX  #U4  *  (j4 

JSR  RECALL 

JSR  COPY  *  U4 

JSR  MLTPLY  *  * 

LDX  #Y1  *  yi 

JSR  RECALL 

JSR  MLTPLY  *  * 

JSR  PLUS  *  + 

LDX  #Y4  *  Y4 

JSR  RECALL 

JSR  INVRSE  *  1/X 

JSR  MLTPLY  *  * 

JSK  PLUS  *  + 

LDX  #U5  *  U5 

JSR  RECALL 

JSR  INVRSE  *  1/X 

JSR  MLTPLY  *  * 


LDX  #TABLE  * 

LDA  11,S 
LDB  #$04 
MUL 

LEAX  R,X 
JSR  RECALL 
LDX  # YD 
JSK  RECALL 
LDX  #YS 
JSR  RECALL 
JSR  NEGATE 
JSR  PLUS 
JSR  MLTPLY 
LDX  #YS 
JSR  RECALL 
JSR  PLUS 
LDA  8,S 
BPL  P:.T415 
LEAX  ,U 
JSR  CMPXO 
BNE  PNT416 
LEAU  4,U 


B 


34 


JSR  1NVKSE 

* 

l/X 

JSR  MLTPLY 

* 

* 

LDX  #U3 

JSR  RECALL 

* 

U3 

LDX  #Y2 

JSR  RECALL 

* 

Y2 

JSR  MLTPLY 

* 

* 

LDX  #Y3 

JSR  RECALL 

* 

Y3 

JSR  IHVRSE 

* 

l/X 

JSR  MLTPLY 

* 

* 

JSR  NECATE 

* 

CHS 

JSR  PLUS 

* 

+ 

LDX  t\J2 

JSR  RECALL 

* 

U2 

LDD  #§0000 
PSHU  D 

LDD  #$C160 
PSHU  D 

* 

-3 

JSR  MLTPLY 

* 

* 

JSR  PLUS 

* 

+ 

LDX  #U3 

JSR  RECALL 

* 

U3 

JSR  COPY 

* 

U3 

JSR  MLTPLY 

it 

* 

LDX  #U4 

JSR  RECALL 

* 

U4 

JSR  IMVRSE 

* 

l/X 

JSR  MLTPLY 

* 

* 

JSR  MLTPLY 

* 

* 

LDX  #U3 

JSR  RECALL 

* 

U3 

LDX  #Y1 

JSR  RECALL 

* 

Y1 

JSR  MLTPLY 

* 

* 

LDX  #U2 

JSR  RECALL 

* 

U2 

LDX  #Y2 

JSR  RECALL 

it 

Y2 

JSR  MLTPLY 

* 

* 

LDD  #§0000 

* 

2 

PSHU  D 

LDD  #$4140 
PSHU  D 

* 

JSR  MLTPLY 

*• 

* 

JSR  PLUS 

* 

♦ 

LDX  #U3 

JSR  RECALL 

* 

U3 

JSR  MLTPLY 

* 

* 

LDX  9 Y3 

JSR  RECALL 

* 

Y3 

JSR  IHVRSE 

* 

l/X 

JSR  MLTPLY 

* 

* 

JSR  PLUS 

* 

+ 
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1 


f 

4 


I 


LDX  #U2  *  U2 

JSR  RECALL 

JSR  COPY  *  U2 

JSR  MLTPLY  *  * 

JSR  PLUS  *  + 

LDX  *Ul  *  U1 

JSR  RECALL 

LDX  #U3  *  U3 

JSR  RECALL 

JSR  MLTPLY  *  * 

LDD  #$0000  *  2 


PSHU  D 
LDD  #$4140 
PSHU  D 
JSR  MLTPLY 
JSR  PLUS 


LDX  #U4  *  U4 

JSR  RECALL 

JSR  INVRSE  *  1/X 

JSR  MLTPLY  *  * 

LDX  # TABLE  *  Y+ 


LDA  11, S 
LDB  #$04 
MUL 

LEAX  B,X 
JSR  RECALL 
LDX  #YD 
JSR  RECALL 
LDX  #YS 
JSR  RECALL 
JSR  NEGATE 
JSR  PLUS 
JSR  MLTPLY 
LDX  #YS 
JSR  RECALL 
JSR  PLUS 
LDA  li.S 
BPL  PNT419 
LEAX  ,U 
JSR  CMPXO 
BNE  P.YT41A 
LEAU  4,U 
JSR  PMAXJJO 
BRA  PNT419 
PNT41A  JSR  INVRSE 


PNT419  LDX  #U4  *  U4 

JSR  RECALL 

JSR  MLTPLY  *  * 

LDX  #U3  *  U3 

JSR  RECALL 

LDX  #Y0  *  TO 

JSR  RECALL 

JSR  MLTPLY  *  * 

JSR  NECATE  *  CHS 
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JSR  PLUS  * 

+ 

LDX  #U2  * 

JSR  RECALL 

U2 

LDX  #Y1  * 

JSR  RECALL 

Y1 

JSR  MLTPLY  * 

* 

JSR  NECATE  * 

ais 

JSR  PLUS  * 

+ 

LDX  #U1  * 

JSR  RECALL 

Ul 

LDX  #Y2  * 

JSR  RECALL 

Y2 

JSR  MLTPLY  * 

* 

JSR  HECATE  * 

CHS 

JSR  PLUS  * 

+ 

LDX  #Y3  * 

JSR  RECALL 

Y3 

JSR  INVRSE  * 

l/X 

JSR  MLTPLY  * 

* 

JSR  PLUS  * 

BRA  PNT417 

* 

+ 

ELSE 

PNT418  LDX  #  Y2  * 

JSR  CIPXO 

BEQ  PNT4IB 

LDX  t U3 

JSR  CMPXO 

BEQ  PNT41B 

* 

IF  <Y2 

THEN 

LDX  #Y1  * 

IU] 

JSR  RECALL  * 

Y1 

LDX  #Y2  * 

JSR  RECALL 

Y2 

JSR  INVRSE  * 

l/X 

JSR  MLTPLY  * 

* 

LDX  #U2  * 

JSR  RECALL 

U2 

LDX  #U3  * 

JSR  RECALL 

U3 

JSR  INVRSE  * 

l/X 

JSR  MLTPLY  * 

* 

JSR  NEGATE  * 

CHS 

JSR  PLUS  * 

+ 

LDX  #U2  * 

JSR  RECALL 

U2 

JSR  MLTPLY  * 

* 

LDX  #UI  * 

JSR  RECALL 

Ul 

LDD  #$0000  * 

PSUU  D 

LDD  #$4140 

PSHU  D 

2 

JSR  MLTPLY  * 

* 

JSR  PLUS  * 

+ 

1 
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AND  (U3  <>  0) 


(*3  POINT* ) 


LDX 

#U2 

* 

U2 

JSR 

RECALL 

JSR 

MLTPLY 

* 

* 

LDX 

#03 

* 

03 

JSR 

RECALL 

JSR 

INVRSE 

* 

1/X 

JSR 

MLTPLY 

* 

A 

LDX 

#TABLE 

* 

Y+ 

LDA 

11,  S 

LDB 

#$04 

MUL 

LEAX  B,X 

JSR 

RECALL 

LDX 

#YD 

JSR 

RECALL 

LDX 

#YS 

JSR 

RECALL 

JSR 

NEGATE 

JSR 

PLUS 

JSR 

JILT PLY 

LDX 

#  YS 

JSR 

RECALL 

JSR 

PLUS 

LDA 

8,S 

BPL 

POT41C 

LEAX  ,U 

JSR 

CMPXO 

BNE 

PNT41D 

LEAU  4 ,U 

JSR 

PMAXNO 

BRA 

PNT41C 

PNT41D 

JSR 

INVRSE 

PNT41C 

LDX 

#U3 

* 

U3 

JSR 

RECALL 

JSR 

MLTPLY 

* 

* 

LDX 

#U2 

* 

U2 

JSR 

RECALL 

LDX 

#Y0 

* 

YO 

JSR 

RECALL 

JSR 

MLTPLY 

* 

* 

JSR 

NEGATE 

* 

CHS 

JSR 

PLUS 

* 

+ 

LDX 

#U1 

* 

U1 

JSR 

RECALL 

LDX 

#Y1 

* 

VI 

JSR 

RECALL 

JSR 

MLTPLY 

* 

* 

JSR 

NECATE 

* 

CHS 

JSR 

PLUS 

* 

+ 

LDX 

#Y2 

* 

Y2 

JSR 

RECALL 

JSR 

INVRSE 

* 

1/X 

JSR 

MLTPLY 

* 

A 

JSR 

PLUS 

* 

+ 

B 
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BRA 

PNT417 

* 

ELSE 

PNT41B 

LDX 

* 

IF  ( Y1 

JSR 

CMPXO 

BEQ 

PNT41E 

LDX 

#U2 

JSR 

CMPXO 

BEQ 

PNT41E 

* 

THEN 

LDX 

#U1 

* 

[U] 

JSR 

RECALL 

* 

U1 

JSR 

COPY 

* 

U1 

JSR 

MLTPLY 

* 

* 

LDX 

#U2 

* 

U2 

JSR 

RECALL 

JSR 

INVRSE 

* 

1/X 

JSR 

MLTPLY 

* 

* 

LDX 

Stable 

* 

Y+ 

LDA 

11,  s 

LDB 

#$04 

MUL 

LEAX  B,X 

JSR 

RECALL 

LDX 

It  YD 

JSR 

RECALL 

LDX 

#YS 

JSR 

RECALL 

JSR 

NEGATE 

JSR 

PLUS 

JSR 

MLTPLY 

LDX 

tt  YS 

JSR 

RECALL 

JSR 

PLUS 

LDA 

8,S 

BPL 

PNT41F 

LEAX  ,U 

JSR 

CMPXO 

BNE 

PNT420 

LEAU  4 ,U 

JSR 

PMAXNO 

BRA 

PNT41F 

PNT420 

JSR 

INVRSE 

PNT4 I F 

LDX 

It  U2 

* 

U2 

JSR 

RECALL 

JSR 

MLTPLY 

* 

* 

LDX 

#U1 

* 

U1 

JSR 

RECALL 

LDX 

#Y0 

* 

YO 

JSR 

RECALL 

JSR 

MLTPLY 

* 

* 

JSR 

NEGATE 

* 

CHS 

JSR 

PLUS 

* 

+ 

LDX 

#Y1 

* 

Yl 

JSR 

RECALL 

AND  (U2  <>  0) 


(*2  POINT*) 
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JSR 

INVRSE 

* 

l/X 

JSR 

MLTPLY 

* 

* 

JSR 

PLUS 

* 

+ 

BRA 

PNT417 

* 

ELSE 

PNT41E  LDX 

#  YO 

* 

IF  (YO 

JSR 

CMPXO 

BEQ 

PNT421 

LDX 

#U1 

JSR 

CMPXU 

BEQ 

PNT421 

* 

THEN 

LDX 

STABLE 

* 

tul 

LDA 

11, S 

* 

Y+ 

LDB 

#504 

MUL 

LEAX  B,X 
JSR  RECALL 
LDX  #YD 
JSR  RECALL 
LDX  #YS 
JSR  RECALL 
JSR  NEGATE 
JSR  PLUS 
JSR  MLTPLY 
LDX  #  YS 
JSR  RECALL 
JSR  PLUS 
LDA  S,S 
BPL  PNT422 
LEAX  ,U 
JSR  CMPXO 
BNE  PNT423 
LEAU  4,U 
JSR  PMAXIi’O 


(*1  POINT*) 


BRA  PNT422 

PNT422  LDX  #Ul 

JSR  RECALL 
JSR  MLTPLY 
LDX  «YO 
JSR  RECALL 
JSR  INVRSE 
JSR  JILT  PLY 
BRA  PNT417 

POT42I  LDD  #50000 
PSIIU  D 
LDD  #$M)C0 
PSUU  D 


PNT417  JSR 

SET  PUR 

* 

SETPUR 

LDD 

>Y3+2 

* 

Y4  Y3 

STD 

>YU+2 

« 

LDD 

>Y3 

STD 

>Y4 

U1 

* 

YO 

1/X 

* 

ELSE 

[U]  1 
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LDD  >Y2+2 

STD  >Y3+2 

LDD  >Y2 

STD  >Y3 

* 

Y3  Y2 

LDD  >Yl+2 

STD  >Y2+2 

LDD  >Y1 

STD  >Y2 

* 

Y2  s-  Y1 

LDD  >Y0+2 

STD  >Yl+2 

LDD  >Y0 

STD  >Yl 

* 

Y1  s-  YO 

LDD  2,S 

STD  6,S 

LDD  ,S 

STD  4  ,S 

* 

YPM1  YP 

ORCC  tf$10 

* 

MASK  INTERRUPTS 

LDD  >U4+2 

STD  >U5+2 

LDD  >U4 

STD  >U5 

* 

US  U4 

LDD  >U3+2 

STD  >l'4+2 

LDD  >U3 

STD  >U4 

* 

U4  U3 

LDD  >U2+2 

STD  >U3+2 

LDD  >U2 

STD  >U3 

* 

U3  U2 

LDD  >Ul+2 

STD  >U2+2 

LDD  >U1 

STD  >U2 

* 

U2  U1 

LDD  >UO+2 

STD  >Ul+2 

LDD  >U0 

STD  >U1 

* 

U1  UO 

ANDCC  0$ EF 

* 

UNMASK  INTERRUPTS 

LDA  H,S 

CMP  A  J/S13 

BEQ  PNT424 

* 

IF  N  <>  MAXN  (19 

* 

THEN 

INC  1 i ,S 

* 

H  N  +  1 

PNT424  JSR  RDSEN 

* 

RDSEN 

LDA  SENSEL 
ORA  tf  $40 

STA  SENSEL 

* 

RUN  A/D 

LEAX  ,S 

JSR  STORE 

* 

YP  (UJ 

JSK  CALK 

* 

CRLF 

LDA  9 ,S 

JSR  OUTCH 

* 

WRITE  (SENiJUM) 

LEAX  ,S 

LEAY  4 ,S 

A 

IF  YP  >  YPMl 
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JSR  CMPXY 

BLS  PNT425 

* 

THEN 

LDA  #'| 

JSR  OUTCH 

* 

WRITE('I') 

BRA  PNT426 

* 

ELSE 

PNT425 

BEQ  P:JT427 

* 

IF  YP  <  YPM1 

* 

THEN 

LDA  #' I 

JSR  OUTCH 

* 

WRITE('I') 

BRA  PNT426 

* 

ELSE 

PNT427 

LDA 

JSR  OUTCH 

* 

URITE( '-') 

PNT426 

JSR  OUTS 

* 

WRITE ( ‘  ') 

JSR  COPY 

JSR  OUTOEC 

* 

WRITE< YP) 

LDA  8,S 

BPL  PNT423 

* 

IF  POL  -  NECATIVE 

* 

THEM 

LEAX  ,U 

JSR  CMPXO 

* 

IF  [UJ  -  0 

BNE  PNT429 

* 

THEN 

LEAU  4 ,U 

* 

REMOVE  [UJ 

JSR  P;  LAX  HO 

* 

lU]  PMAXNO 

BRA  PNT423 

* 

ELSE 

PNT429 

JSR  INVRSE 

* 

(UJ  1/[U) 

PNT423 

LUX  i/YO 

JSR  STORE 

* 

YO  (UJ 

LEAU  4 ,U 

* 

REMOVE  (UJ 

LDA  1 2 ,S 

* 

IF  NOT  SECCNTRL 

BNE  PNT430 

* 

THEN 

LEAX  ,S 

JSR  RECALL 

LDX  0YD 

JSR  RECALL 
JSR  NEGATE 

JSR  PLUS 

* 

IF  ABS(YP  -  YD)  <-  ERROR 

LDA  ,U 

ANDA  tf$7F 

STA  ,U 

LEAX  ,U 

LDY  •'ERROR 

JSR  CMPXY 

LEAU  4 ,U 

BUI  PNT431 

* 

THEN 

INC  10, S 

* 

K  K  +  1 

LDA  10, S 

CVPA  *'S0 5 

* 

IF  K  >■  5 

B 
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BLO 

PNT430 

* 

THEN 

DEC 

12, S 

* 

SECCNTRL  TRUE 

BRA 

PNT40B 

* 

ELSE 

PNT431  CLR 

10, S 

* 

K  :*>  0 

BRA 

PNT430 

*  FOREVER 

1 


t 
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'TABLE'  IS  A  TABLE  OF  THE  MODEL  THAT  THE  CONTROLLER  IS  *0  FOLLOU  WHF.N 
CHANG  INC  TEMPERATURE.  THIS  MODEL  IS  NORJIALIZED  (0  -  START  INC  POINT, 

1  -  ENDING  POINT).  THIS  MODEL  CONTAINS  THE  VALUES  FOR  A  20  POINT,  CRI¬ 
TICALLY  DAMPED  CURVE. 


TABLE 


FQB  $404848E6 
FQB  S4067BEA0 
FQB  $40757 1A6 
FQB  $407 B67BC 
FQB  $407E0000 
FQB  $407 F2 124 
FQB  $407F9EFF 
FQB  $407FD5C7 
FQB  $407FF.D9F 
FQB  $407 FF800 
FQB  $407FFCU5 
FQB  S407FFE7C 
FQB  $407FFF57 
FQB  $407FFKB6 
FQB  $407Fr  Ft.O 
FQB  $407Fr FF2  • 
FQB  $407FFFFA 
FQB  $407FFFFD 
FQB  $407FFFFF 
FQB  $40C000UU 
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THIS  IS  the  terminating  routine,  it  is  entered  only  through  A  '1.0' 

RESPONSE  TO  A  DEFAULT  PROMPT  IN  TOE  SWI  ROUTINE. 


BYE  JSR  CRLF  *  CRLF 

JSR  OUTSTR  *  WRITE( 'BYE-BYE' ) 

FCC  /BYE-B/ 

FCC  /YE/ 

FCB  EOT 

PNTEOO  BRA  PN7E00 
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ORC  SUB 


SUBROUTINE  OUTCII  OUTPUTS  A  CHARACTER  TO  THE  DISPLAY  LOCATION  POINTED 
TO  BY  THE  DISPLAY  POINTER(UISPAD).  IT  ALSO  PLACES  THE  CHARACTER  IN 
THE  DISPLAY  TABLE  AN!)  INCREMENTS  THE  DISPLAY  POINTER. 

ENTRY:  ACCA  CONTAINS  THE  CHARACTER 

EXIT:  ACCA  CONTAINS  THE  CHARACTER 
DISPLAY  TABLE  UPDATED 
DISPLAY  POINTER  INCREMENTED 

VOLATILE  REGISTERS:  B,  X,  CC 

STACK  USAGE:  S  -  2  BYTES 


OUTCH  INC  DISPAD 
LDX  #DIGi 
LDB  DISPAD 
ANDB  #$OF 
STA  B,X 
STA  DISPDA 
RTS 
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SUBROUTINE  OUTSTR  OUTPUTS  A  STRING  OF  CHARACTERS  TO  THE  DISPLAY. 

ENTRY:  STRING  IS  LOCATED  IMMEDIATELY  AFTER  THE  SUBROUTINE  CALL  AND 
MUST  BE  TERMINATED  WITH  AN  EOT  CHARACTER  ($FF). 

EXIT:  EXECUTION  RESUMES  AT  INSTRUCTION  IMMEDIATELY  FOLLOWING  EOT 

VOLATILE  REGISTERS:  A,  B,  X,  CC 

STACK  USACE:  S  -  4  BYTES 


OUTSTR  LDA  (,Sj 
INC  1,S 
BNE  PNTOOO 
INC  ,S 

PNTOOO  CMPA  *$FF 
BEQ  PNTOOl 
JSK  OUTCII 
BRA  OUTSTR 
PNTOOl  RTS 


SUBROUTINE  OUTIIR  OUTPUTS  THE  RIGHT  HALF-BYTE  OF  THE  HEX  NUMBER  CON¬ 
TAINED  IN  ACCA  TO  THE  DISPLAY. 

ENTRY:  ACCA  CONTAINS  THE  HEX  NUMBER 

EXIT:  ACCA  CONTAINS  THE  HEX  NUMBER 

VOLATILE  REGISTERS:  B,  X,  CC 

STACK  USAGE:  S  -  5  BYTES 


OUTUR  PSHS  A 

ANDA  P$0F 
JSR  OUTCU 
PULS  A 
RTS 


B  - 
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SUBROUTINE  OUTHL  OUTPUTS  THE  LEFT  HALF-BYTE  OF  THE  HEX  .‘.'UMBER  CON¬ 
TAINED  IN  ACCA  TO  THE  DISPLAY* 

ENTRY:  ACCA  CONTAINS  THE  HEX  NUMBER 

EXIT:  ACCA  CONTAINS  THE  HEX  NUMBER 

VOLATILE  REGISTERS:  B,  X,  CC 

STACK  USAGE:  S  -  5  BYTES 


OUTHL  PSHS  A 
LSRA 
LSRA 
LSRA 
LSRA 

JSR  OUTCll 
PULS  A 
RTS 


» 


B  - 
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*  * 

*  SUBROUTINE  OUT1IEX  OUTPUTS  THE  HEX  NUMBER  CONTAINED  IN  ACCA  TO  THE  * 

*  DISPLAY.  * 

*  * 

*  ENTRY:  ACCA  CONTAINS  THE  HEX  NUMBER  * 

*  * 

*  EXIT:  ACCA  CONTAINS  THE  HEX  NUMBER  * 

*  * 

*  VOLATILE  REGISTERS:  B,  X,  CC  * 

*  * 

*  STACK  USAGE:  S  -  7  BYTES  * 

*  * 


OUTHEX  JSR  OUTHL 
JSR  OUTHR 
RTS 


SUBROUTINE  OUTS  OUTPUT?  t  cnw  _ _  * 


*  SUBROUTINE  OUTS  OUTPUTS  A  SPACE  TO  THE  DISPLAY. 

*  ENTRY:  NONE 

* 

*  EXIT:  ACCA  CONTAINS  A  SPACE  CHAR  ($30) 

*  VOLATILE  RECISTERS:  A.  B,  X.  CC 

*  STACK  USACE:  S  ■  4  BYTES  * 

. . * . . 

JSR  OUTCH 
RTS 


***************** ****** 


******************** 


********** *************** 


******** 


ON  THE  STACK  IS  DESTROYED.  *  ^*XXXXXX|+XX  ™E  NUMBER 

ENTRY:  REAL  number  is  CONTAINED  IN  THE  TOP  4  BYTES  OF  THE  USER  STACK 

EXIT:  NUMBER  IS  REMOVED  FROM  THE  USER  STACK 

VOLATILE  RECISTERS:  A,  B,  X,  CC 

STACK  USACE:  S  ■  9  BYTES 
U  -  2  BYTES 


*********************** 

OUTNUM  LDD  ,U 

BNE  PNT002 

PSHU  D 
BRA  PNTOOJ 


PNT002  LDB  ,U 
SEX 

PSHU  A 
LSL  4 ,U 
ROL  3,U 
ROL  2,U 
ROL  1,U 
LDB  1,U 
SUBB  #$30 
SEX 
PSHU  A 
BPL  PNT004 
NEC  B 

PNT004  STB  2 ,U 

PNT003  LUA  1,U 

BPL  PNT005 
JSR  OUTSTR 
FCC  /+(!./ 
FCB  EOT 
BRA  PNT006 

pntoos  jsr  outstr 

FCC  /-0 ./ 
FCB  EOT 

PNT006  LDA  3 , U  . 

JSR  OUTIIEX 
LDA  4 , U 
JSR  OUTHEX 
LDA  5 ,U 
JSR  OUTHEX 
LDA  ,U 
BPL  PNT007 
JSR  OUTSTR 


*jrr,M***r*********************************‘******* 

IF  [UJ  -  0 
then- 

add  SICNS 

ELSE 

EXPAND 


WRITE(MANTISSA) 


*  WRITE( EXPONENT) 
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FCC  /|+/ 
FOB  EOT 
BRA  PT0008 
PNT007  JSK  OUTSTR 
FCC  /|-/ 
FCB  EOT 
PT0008  LDA  2 ,U 

JSR  OUTHEX 
LEAU  6,U 
RTS 


************************************* A *** A A  A* A** A  A * A* ****************** A* A A* ** 


*  * 

*  SUBROUTINE  OUTDKC  OUTPUTS  THE  REAL  NUMBER  LOCATEO  ON  THE  TOP  OF  T11F.  * 

*  USER  STACK  TO  THE  DISPLAY  IN  THE  DECIMAL  FORMAT:  -K).XXXXXX|+XX  THE  * 

*  NUMBER  ON  THE  STACK  IS  DESTROYED.  * 

*  * 

*  ENTRY:  REAL  NUMBER  IS  CONTAINED  IN  THE  TOP  4  BYTES  OF  THE  USER  STACK  * 

*  * 

*  EXIT:  NUMBER  IS  REMOVED  FROM  THE  USER  STACK  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

'  * 


*  STACK  USAGE:  S  -  14  BYTES  * 

*  U  -  25  BYTES  * 

*  * 


****************************************************************************** 


OUTDEC  JSR  CONVRT 
LDA  1  ,U 
BMI  PNT620 
JSR  OUTSTK 
FCC  1+0. / 
FCB  EOT 
BRA  PNT621 
PNT620  JSR  OUTSTR 
FCC  / -0./ 
FCB  EOT 
PNT621  LDA  3,U 

JSR  OUTHEX 
LDA  4 , U 
JSR  OUP.IEX 
LDA  5,L’ 

JSR  OUTHEX 
LDA  ,U 
BMI  PNT622 
JSR  OUTSTR 
FCC  /l+/ 
FCCB  EOT 
BRA  p;:t62J 
PNT622  JSR  OUTSTR 
FCC  /|-/ 
FCli  EOT 
PNT623  LDA  2,U 

JSR  OUTHEX 
LEAU  6 ,U 
RTS 
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***************************************************************************** 

* 


****************************************************************************** 


*  * 

*  SUBROUTINE  SCROCll  SCROLLS  ONE  CHARACTER  ONTO  THE  DISPLAY.  IT  ALSO  * 

*  UPDATES  THE  DISPLAY  TABLE  WITH  THE  CURRENT  CONTENTS  OF  THE  DISPLAY.  * 

*  * 

*  ENTRY:  ACCA  CONTAINS  THE  CHARACTER  * 

*  * 

*  EXIT:  DISPLAY  TABLE  UPDATED  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

*  * 

*  STACK  USAGE:  S  -  5  BYTES  * 

*  * 


****************************************************************************** 


SCROCIl  PSHS  A 

LDA  F 
STA  DISPAD 
LDX  #DIGl+l 
PNT009  LDA  ,X 
PSHS  X 
JSR  OUTC11 
PULS  X 
LEAX  1,X 

c.'ipx  mci+i5 

BLS  PI.TOO'J 
PULS  A 
JSR  OUTCH 
LDA  #$OF 
STA  DISPAD 
LDX  V$27FF 
PNTOOA  LEAX  -1,X 
BNE  PNTOOA 
RTS 


*  RESET( DISPAD),  DISABLE  DISPLAY 

*  FOR  I  :-  2  TO  lb  DO 

*  SHIFT  DIGITS 


*  WRITE(A) 

*  RESET( DISPAD),  ENABLE  DISPLAY 

*  WAIT 


B 
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****************************************************************************** 


*  * 

*  SUBROUTINE  SCRSTR  SCROLLS  A  S7RINC  OF  CHARACTERS  ACROSS  THE  DISPLAY.  * 

*  * 

*  ENTRY:  STRING  IS  LOCATED  IMMEDIATELY  AFTER  THE  SUBROUTINE  CALL  AND  * 

*  MUST  BE  TERMINATE!.  .jITil  AN  EOT  CHARACTER  (  S  F  F  ) .  * 

*  * 

*  EXIT:  EXECUTION  RESU.TES  AT  INSTRUCTION  I'UIEUIATF.LY  FOLLOWING  EOT  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

*  * 

*  STACK  USACE:  S  -  9  BYTES  * 

*  * 

****************************************************************************** 

SCRSTR  LDA  (,Sj 
INC  1,S 
BNE  PNTOOB 
INC  ,S 

PNTOOB  CMPA  #$FF 
BEQ  PNTOOC 
JSR  SCKOCil 
BRA  SCRSTR 

PNTOOC  RTS 


**************************************************************************** 


*  SUBROUTINE  SCRMR  SCROLLS  THE  RIGHT  HALF-BYTE  OF  THE  HEX  NUMBER  CON- 

*  TAINED  IN  ACCA  ONTO  THE  DISPLAY. 

*  ENTRY:  ACCA  CONTAINS  THE  HEX  NUMBER 

*  EXIT:  ACCA  CONTAINS  THE  HEX  NUMBER 

*  VOLATILE  REGISTERS:  B,  X,  CC 

*  STACK  USAGE:  S  -  10  BYTES 

***************************************************************************** 

SCR1IR  PSHS  A 

ANDA  tf$OF 
JSR  SCROCH 
PULS  A 
RTS 


I 


t 
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SUBROUTINE  SCRI1L  SCROLLS  THE  LEFT  HALF-BYTE  OF  THE  HEX  NUMBER  CON¬ 
TAINED  IN  ACCA  TO  THE  DISPLAY. 

ENTRY:  ACCA  CONTAINS  THE  HEX  NUMBER 

EXIT:  ACCA  CONTAINS  THE  HEX  NUMBER 

VOLATILE  REGISTERS:  B,  X,  CC 

STACK  USAGE:  S  -  10  BYTES 


SCRHL  PSHS  A 
LSKA 
LSRA 
LSKA 
LSRA 

JSR  SCROCH 
PULS  A 
RTS 


*  SUBROUTINE  SCRHEX  SCROLLS  THE  HEX  HUMBER  CONTAINED  It!  ACCA  ONTO  THE 

*  DISPLAY. 

*  ENTRY:  ACCA  CONTAINS  THE  HEX  HUMBER 

*  EXIT:  ACCA  CONTAINS  THE  HEX  NUMBER 

*  VOLATILE  RECISTERS:  B,  X,  CC 

*  STACK  USACE:  S  -  12  BYTES 

SCR11EX  JSR  SCKHL 
JSR  SCRIIR 
RTS 


SUBROUTINE  SCRS  SCROLLS  A  SPACE  ONTO  THE  DISPLAY 


*  ENTRY:  NONE 

*  EXIT:  NONE 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC 

*  STACK  USACE:  S  -  9  BYTES 

******************************************************4 

SCRS  LDA  0' 

JSR  SCKOCH 
RTS 
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**************************************************************************** 


SUBROUTINE  SCRNUM  SCROLLS  THE  REAL  NUMBER  LOCATED  ON  THE 
USER  STACK  ONTO  THE  DISPLAY  IN  THE  FORMAT:  +U . XXXXXX I +XX 
ON  TUE  STACK  IS  DESTROYED. 

ENTRY:  REAL  NUMBER  IS  CONTAINED  IN  THE  TOP  4  BYTES  OF  THE 
EXIT:  NUMBER  IS  REMOVED  FROM  THE  USER  STACK 


VOLATILE  REGISTERS:  A,  B,  X,  CC 

STACK  USAGE:  S  -  14  BYTES 
U  -  2  BYTES 


SCRNUM 

LDD 

,u 

BNE 

PNTOOD 

PS  HU  D 

BRA 

PNTOUE 

PNTOOD 

LDB 

,u 

SEX 

PSIIU  A 

LSL 

4,U 

ROL 

3,U 

ROL 

2,U 

ROL 

i.u 

LDB 

l.U 

SUBB  #$B0 

SEX 

PSIIU  A 

BPL 

PNTOOF 

NEC 

B 

PNTOOF 

STB 

2,U 

PNTOOE 

LDA 

l.U 

BPL 

PNT01U 

JSR 

SC.RSTR 

FCC 

/+<>./ 

FCB 

EOT 

BRA 

PNTO 1 1 

PNT010 

JSU 

SCRSTR 

FCC 

/-«./ 

FCB 

EOT 

PNT011 

LDA 

3.U 

JSR 

SCR1IEX 

LDA 

4,U 

JSR 

S CRH EX 

LDA 

5,U 

JSR 

SCKIIEX 

LDA 

BPL 

PNTO 12 

JSR 

SCRSTR 

IF  [U]  -  0 
THEN 

ADD  SIGNS 

ELSE 

EXPAND 


*  WRITE (MANTISSA) 


*  WRITE( EXPONENT) 
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TOP  0.  THE 
TI.c.  NUMBER 

USER  STACK 


FCC  / 1+/ 
FCB  EOT 
BRA  PT0013 
PNT012  JSR  SCRSTR 
FCC  /I-/ 
FCB  EOT 
PT0013  LDA  2 ,U 

JSR  SCR11EX 
LEAU  6.U 
RTS 


**************************************************************************** 


*  SUBROUTINE  SCRDEC  SCROLLS  THE  REAL  HUMBER  LOCATED  ON  THE  TOR  OR  THE 

*  USER  STACK  ONTO  THE  DISPLAY  IN  THE  DECIMAL  FORMAT:  +O.XXXXXXI+XX 

*  THE  NUMBER  ON  THE  STACK  IS  DESTROYED. 

* 

*  ENTRY:  REAL  NUMBER  IS  CONTAINED  IN  THE  TOP  4  BYTES  OF  THE  USER  STACK 

*  EXIT:  NUMBER  IS  REMOVED  FROM  THE  USER  STACK 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC 

*  STACK  USAGE:  S  -  19  BYTES 

*  U  -  25  BYTES 

***************************************************************************** 

SCRDEC  JSR  CONVRT 
LDA  I,U 
BMI  PNT630 
JSR  SCRSTR 
FCC  /+0./ 

FCB  EOT 
BRA  PNT631 

PNT630  JSR  SCRSTR 
FCC  /-O. / 

FCB  EOT 

PNT63I  LDA  3 ,U 

JSR  SCRHEX 
LDA  4 ,U 
JSR  SCRHEX 
LDA  5 ,U 
JSR  SCRHEX 
LDA  ,U 
BMI  PNT632 
JSR  SCRSCR 
FCC  /|+/ 

FCB  EOT 
BRA  PNT633 

PNT632  JSR  SCRSTR 
FCC  /|-/ 

FCB  EOT 

PNT633  LDA  2,U 

JSR  SCRHEX 
LEAU  6  ,U 
RTS 
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* 

THEN 

LDA  #$03 

* 

A CCA  $03 

BRA  PNT0I7 

* 

ELSE 

PHT01A  RORA 

* 

IF  ROT  -  '4' 

BCS  PNTOIB 

* 

THEN 

LDA  #$04 

* 

ACCA 

$04 

BRA  PNT017 

* 

ELSE 

PNTOIB  LDA  #$FF 

* 

ACCA 

f  -  1 

$FF 

PNT017  STD  ROTARY  *  ROTARY  l A] 

*  TOGGLE  [ B 1 

PSHS  D  *  IF  COMP/ MAM  -  'COMP' 

TSTB 

BNE  PTOOIC 

*  THEN 

LDA  ?$27  *  ENABLE  COMP  INT 

STA  COMORO 

LDA  #$06  *  DISABLE  KEY  INT 

STA  KEYCR 
BRA  PTOOID 

*  ELSE 

PTOOIC  LDA  #$ 04  *  DISABLE  COMP  I!.T 

STA  COMORO 

LDA  #$07  *  ENABLE  KEY  INT 

STA  KEYCR 
PTOOID  POLS  D 
RTS 
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****************************************************************************** 


*  * 

*  SUBROUTINE  RDCOMP  RE AOS  A  NUMBER  INPUT  FROM  THE  COMPUTER  AND  PLACES  * 

*  THE  NUMBER  ON  THE  USER  STACK.  THIS  ROUTINE  ALSO  CHECK  FOR  UNDEFINED  * 

*  COMPUTER  INPUT  AND  IF  SO  GENERATES  A  SOFTWARE  INTERRUPT.  * 

*  * 

*  ENTRY:  NONE  * 

*  * 

*  EXIT:  NUMBER  PUSHED  ONTO  TOP  4  BYTES  OF  THE  USER  STACK  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  CC  * 

*  * 

*  STACK  USAGE:  S  »  4  BYTES  * 

*  U  -  4  BYTES  * 

*  * 


****************************************************************************** 


RDCOMP  LDA  COMCR0 

* 

REPEAT 

BPL  RDCOMP 

* 

READ (COMCRO) 

* 

UNTIL  DATA  READY 

LDD  COflDAO 

* 

RE  AD( COMDAO) 

PSHS  D 

PNTOIC  LDA  COMCRO 

* 

REPEAT 

BPL  PNTOIC 

* 

READ (COMCRO) 

* 

UNTIL  DATA  READY 

LDD  COMDAO 

RE AD (COMDAO) 

PSHU  D 

* 

[U]  :=  COMPUTER  INPUT 

PULS  D 

PSHU  D 

COMD  tf$UUOO 

* 

IF  IU]  -  UNDEFINED 

BNE  PNTOID 

* 

THEN 

SWI 

* 

SWI(l) 

FCB  $01 

LEAU  4 ,U 

* 

'  REMOVE  lU) 

JMP  ZERO 

* 

GO  TO  ZERO 

* 

ELSE 

PNTOID  C'.'t’D  <>$0000 

* 

IF  t  U 1  <>  0 

BEQ  PNT01E 

* 

THEN 

ASR  1,U 

* 

CORRECT  FORMAT 

ROR  2,U 

ROR  3 ,U 

LDA  1,U 

ORA  #$40 

STA  1,U 

PNT01E  RTS 

B 
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A**  ***  ***************  It  it  it  it  **********************  **  *****  *  *AA***AA*AAAAA**A*  ** 


*  * 

*  SUBROUTINE  PIIAXNO  PLACES  THE  LARGEST  POSITIVE  NUMBER  WHICH  THE  REAL  * 

*  NUMBER  FORMAT  CAN  HANDLE  ON  THE  USER  STACK.  * 

*  * 

*  ENTRY:  NONE  * 

*  * 

*  EXIT:  TOP  4  BYTES  OF  USER  STACK  CONTAIN  THE  NUMBER  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  CC  * 

*  * 

*  STACK  USACE:  S  -  2  BYTES  * 

*  U  *  4  BYTES  * 

*  * 
****************************************************************************** 


PMAXNO  LUD  if SFFFF  *  (UJ  :*  HEX  +O.FFFFFE  B+7F 

PSHU  D 
LDA  #$7F 
PSHU  D 
RTS 


I 


B 
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**************************************************************************** 


*  SUBROUTINE  MMAXNO  PLACES  THE  LAKCEST  NECATIVE  NUMBER  WHICH  THE  REAL  * 

*  NUMBER  FORMAT  CAN  HANDLE  ON  THE  USER  STACK.  * 

*  ENTRY:  NONE  * 

*  EXIT:  TOP  4  BYTES  OF  USER  STACK  CONTAIN  THE  NUMBER  * 

*  VOLATILE  REGISTERS:  A,  B,  CC  * 

*  STACK  USACE:  S  -  2  BYTES  * 

*  U  -  4  BYTES  * 

****************************************************************************** 

NilAXNO  LDD  i/$FFFF  *  (U]  HEX  -O.FKFFFE  B+7F 

PS11U  D 


***************************** ** *** ** ************************************** ** *1 

*  i 

*  SUBROUTINE  ZERO  PLACES  THE  REAL  NUMBER  ZERO  ON  THE  USER  STACK  ’ 

f  * 

*  ENTRY:  NONE 

* 

*  EXIT:  TOP  4  BYTES  OF  USER  STACK  CONTAIN  ZERO 

* 

*  VOLATILE  RESICTERS:  A,  15,  CC 

* 

*  STACK  USACE:  S  -  2  BYTES 

*  U  -  4  BYTES 

* 

***************************************************************************** 

ZERO  LDD  tf$0000  *  [U]  :-  0 

PS11U  D 
PS11U  D 
RTS 


****************************************************************************** 
*  * 

*  SUBROUTINE  LF7JST  LEFT  JUSTIFIES  THE  FRACTIONAL  PART  OF  AN  EXPANDED  * 

*  REAL  NUMBER  AND  SHRINKS  THIS  NUMBER  BACK  INTO  THE  STANDARD  REAL  NUMBER  * 


*  FORMAT.  THIS  ROUTINE  IS  CALLED  FROM  ARITHMETIC  ROUTINES.  * 

*  * 

*  ENTRY:  EXPANDED  REAL  NUMBER  CONTAINED  IN  THE  TOP  8  BYTES  OF  USER  * 

*  STACK  * 

*  * 

*  EXIT:  REAL  NUMBER  CONTAINED  IN  TOP  4  BYTES  OF  USER  STACK  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  CC  * 

*  * 

*  STACK  USACE:  S  -  3  BYTES  * 

*  * 


****************************************************************************** 

LFTJST  LDD  2,U  *  IF  X-.'IAN  <>  0 

BNE  PNTOIF 
LDD  4,U 
BNE  PNTOIF 
LDD  6 ,U 
BEQ  PNT020 

*  THEN 

PNTOIF  CLR  ,-S  *  I  :**  0 

LDA  2  ,U  *  WHILE  X-.'IAN  IS  NOT  LEFT  JUSTIFIED  DO 

PNT022  BMI  P:.T021 

INC  ,S  *  I  :-  I  +  1 

ASL  7.U  *  X-MAN  :-  X-MAN  *  2 

ROL  6,U 

ROL  5 ,U 

ROL  4.U 

ROL  3,U 

ROL  2,U 

BRA  PNT022 

PNT021  LDA  1,U  *  X-EXP  :-  X-EXP  -  I 

SUBA  ,S+ 

STA  1,U 

Bill  PNT023  *  IF  X-EXP  <-  0 

*  THEN 

LEAU  G,U  *  REMOVE  X 

JMP  ZERO  *  GO  TO  ZERO 

*  ELSE 

PNT020  LEAU  8,U  *  REMOVE  X 

JMP  ZERO  *  GO  TO  ZERO 

PNT023  LSR  2,U  *  HOUND  X-MAN 

ROR  3,U 
ROR  4,U 
BCC  PNT024 
INC  4,U 
BNE  PNT024 
INC  3,U 
BNE  PNT024 
INC  2 ,U 

BPL  PNT024  *  IF  H  SET 
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* 

THEN 

INC  1,U 

* 

X-EXP  X-EXP  +  1 

BNE  PNT025 

* 

IF  X-EXP  >  127 

* 

THEN 

LDA  ,U 

* 

IF  X-SCN  -  POSITIVE 

BMI  PNT026 

* 

THEN 

LEAU  8,U 

* 

REMOVE  X 

JMP  PMAXNO 

* 

CO  TO  PMAXKO 

* 

ELSE 

PNT026 

LEAU  8,U 

* 

REMOVE  X 

JMP  NMAXNO 

* 

CO  TO  NMAXNO 

* 

ELSE 

PNT025 

LSR  2 ,U 

ROR  3,U 

ROR  4,U 

* 

X-MAN  X-:tAN  /  2 

PNT024 

LDD  3,U 

* 

CONDENSE  X 

STD  6 ,U 
LDD  1,U 
LSLB 
ROR  ,U 
RORA 
RORB 
STD  4  ,U 
LEAU  4,U 
RTS 


*************** 


********************* 


SUBROUTINE  SHRINK  SHRINKS  AN  EXPANDED  REAL  NUMBER  BACK  INTO  THE 
STANDARD  NUMBER  FORMAT. 

ENTRY:  EXPADED  NUMBER  CONTAINED  IN  TOP  8  BYTES  OF  USER  STACK 
EXIT:  REAL  NUMBER  CONTAINED  IN  TOP  4  BYTES  OF  USER  STACK 
VOLATILE  REGISTERS:  A,  B,  CC 
STACK  USACE:  S  -  2  BYTES 


SHRINK  LDD  3,U  *  CONDENSE  X 

STD  6,U 
LDD  1,U 
LSR  ,U 
RORA 
SORB 
STD  4 , U 
ROR  6  ,U 
ROR  7,U 
LEAU  4 ,U 
RTS 
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» 


SUBROUTINE  RECALL  PUSHES  THE  REAL  NUMBER  POINTED  TO  BY  THE  X  INDEX 
POINTER  ONTO  THE  USER  STACK. 

ENTRY:  X  POINTER  POINTS  TO  FIRST  LOCATION  OF  REAL  NUMBER 

EXIT:  REAL  NUMBER  PUSHED  ONTO  USER  STACK 

VOLATILE  REGISTERS:  A,  B,  CC 

STACK  USAGE:  S  -  2  BYTES 
U  -  4  BYTES 


RECALL  LDD  2,X 
PSHU  D 
LDD  ,X 
PSHU  D 
RTS 


I 


***************************************************************************** 

* 


*  SUBROUTINE  STORE  STORES  THE  REAL  NUMBER  LOCATED  ON  THE  TOP  OK  THE  * 

*  STACK  AT  THE  FOUR  BYTES  POINTED  TO  BY  THE  X  INDEX  POINTER.  THE  NUMBER  * 

*  ON  THE  USER  STACK  REMAINS  UNCHANGED.  * 

*  * 

*  ENTRY:  NUMBER  CONTAINED  IN  TOP  A  BYTES  OF  USER  STACK  * 

*  X  POINTER  CONTAINS  STORAGE  ADDRESS  * 

*  * 

*  EXIT:  NUMBER  CONTAINED  IN  TOP  A  BYTES  OF  USER  STACK  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  CC  * 

*  * 

*  STACK  USAGE:  S  -  2  BYTES  * 

*  * 
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

STORE  LDD  2,U 
STD  2 ,X 
LDD  ,U 
STD  ,X 
RTS 
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» 


A*************************************************************************, 

* 

*  SUBROUTINE  COPY  PUSHES  AN  ADDITIONAL  COPY  OK  THE  REAL  NUMBER  LOCATED 

*  ON  THE  TOP  OF  THE  USER  STACK  ONTO  THE  USER  STACK. 

* 

*  ENTRY:  NUMBER  CONTAINED  IN  TOP  4  BYTES  OF  USER  STACK 

* 

*  EXIT:  TWO  COPIES  OF  NUMBER  CONTAINED  IN  TOP  8  BYTES  OF  USER  STACK 

* 

*  VOLATILE  REGISTERS:  A,  B,  CC 

* 

*  STACK  USAGE:  S  -  2  BYTES 

*  U  »  4  BYTES 

* 


* 

A 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


COPY  LDD  2 ,U 
PSHU  D 
LDD  2  9U 
PSHU  D 
RTS 


i 


B 
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****************************************************************************** 


*  * 

*  SUBROUTINE  XINTGY  EXCHANCES  THE  TWO  REAL  NUMBERS  LOCATED  ON  THE  TOP  * 

*  OF  THE  USER  STACK.  * 

*  * 

*  ENTRY:  TWO  NUMBERS  CONTAINED  IN  TOP  8  BYTES  OF  USER  STACK  * 

*  * 

*  EXIT:  TWO  NUMBERS  EXCHANGED  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

*  * 

*  STACK  USAGE:  S  -  2  BYTES  * 

*  * 


********** ** *********************** A ************************ A********** ******* 

XINTGY  LDD  ,U 
LDX  4,U 
STD  4 ,U 
STX  ,U 
LDD  2,U 
LDX  6 ,U 
STD  6,U 
STX  2,U 
RTS 


B 
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***************************************************************************** 

* 


*  SUBROUTINE  NEGATE  CHANGES  THE  SICN  OF  THE  REAL  NUMBER  LOCATED  ON  THE  * 

*  TOP  OF  THE  USER  STACK.  * 

*  * 

*  ENTRY:  REAL  NUMBER  CONTAINED  IN  THE  TOP  4  BYTES  OF  USER  STACK  * 

*  * 

*  EXIT:  SIGN  CHANGED  REAL  NUMBER  CONTAINED  IN  THE  TOP  4  BYTES  OF  USER  * 

*  STACK  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  CC  * 

*  * 

*  STACK  USAGE:  S  -  2  BYTES  * 

*  * 
****************************************************************************** 

NEGATE  LDD  ,1)  *  IF  X  <>  0 

BE^  PNT03D 

*  THEN 

EORA  #$80  *  X  -X 

STA  ,U 
PIJT03D  RTS 


****************************************************************************** 


I 


J 


SUBROUTINE  IHVHSE  REPLACES  THE  REAL  NUMBER  ON  THE  TOP  OF  THE  USER 
STACK  WITH  ITS  MULTIPLICATIVE  INVERSE. 

ENTRY:  NUMBER  CONTAINED  IN  TOP  4  BYTES  OF  USER  STACK 

EXIT:  INVERSE  OF  NUMBER  CONTAINED  IN  TOP  4  BYTES  OF  USER  STACK 

VOLATILE  REGISTERS:  A,  B,  CC 

STACK  USAGE:  S  -  7  BYTES 
U  -  12  BYTES 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


****************************************************************************** 


INVRSE  LDD  ,U 

BME  PNT027 

SWI 

FCB  $02 
LEAU  A , U 
JMP  PMAXiJO 
PNT027  LDB  ,U 
SEX 

PSilU  A 
LEAU  -6,U 
LDD  9 ,U 
ASL  B 
ROLA 
STD  1,U 
LDD  7  ,U 
ROLB 
ROLA 
STB  ,U 
STA  7 ,U 
LDD  #$0000 
STD  3  fU 
STA  5 ,U 
NEC  7 ,U 
LDD  #$ 0000 
PSHU  D 
PSHU  D 
LDA  #$80 
PSHU  D 
LDA  #$19 
PSHS  A 
PNT02A  LDD  4,U 

SUBD  10, U 
STD  4,U 
LDD  2,U 
SBCB  9 ,U 
SBC A  8 ,U 
STD  2,U 
LDD  ,U 


*  IF  X  -  0 

*  THEN 

*  swi<2) 

*  REMOVE  X 

*  GO  TO  PMAXN’O 

*  EXPAND  X 


*  R-EXP  -  X-EXP 

*  M-MAH  $800000000000 


*  FOR  I  1  TO  25  DO 

*  N'-MAM  N-MAN  -  X-MAN 
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SBCB  7,U 

SBC A  6,U 

STD 

,u 

BCC 

PNT028 

A 

IF  N-.MAN  <  0 

A 

THEN 

LDD 

4.U 

A 

N-MAN  N-MAN  +  X-MAN 

ADDD  10, U 

STD 

4,U 

LDD 

2.U 

ADCB  9 ,U 

ADCA  8,U 

STD 

2,0 

LDD 

,u 

ADCB  7,U 

ADCA  6 , U 

STD 

,u 

ASL 

16,  U 

A 

ASL  R-MAN 

ROL 

15,  U 

ROL 

14,  U 

BRA 

K1T029 

A 

ELSE 

PNT023 

ORCC  ./SOI 

A 

SET  CARRY 

ROL 

16, U 

A 

ROL  r-:ian 

ROL 

15,  U 

ROL 

14, U 

PIJT029 

LSR 

6  ,U 

A 

LSR  X-MAN 

ROR 

7,U 

ROR 

8,U 

ROR 

9,U 

ROR 

10, U 

ROR 

u,u 

DEC 

,S 

BNE 

PNT02A 

LEAS  1,S 

0 

LEAU  12 ,U 

A 

REMOVE  N-MAN ,  X-MAN 

LSR 

2,U 

A 

ROUND  R-MAN 

ROR 

3.U 

ROR 

4,0 

BCC 

PNT02B 

INC 

4,U 

BNE 

P/JT02B 

INC 

3,U 

BNE 

PNT02B 

INC 

2,U 

PNT02B 

LDD 

2,U 

A 

IF  (N  CLEAR)  AND  (R-MAN  <>  0) 

BMI 

PNT02C 

BNE 

PNT02D 

LDA 

4,U 

BEQ 

PNT02C 

A 

THEN 

PNT02D 

INC 

1,0 

A 

R-EXP  R-EXP  +  1 

BNE 

PNT02E 

A 

IF  R-EXP  >  127 

* 

THEN 

LDA 

,0 

A 

IF  R-SCN  -  POSITIVE 

B 
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BMI  PNT02F 


* 

THEN 

LEAU  5,U 

* 

REMOVE  R 

JMP  PMAXNO 

* 

GO  TO  PMAXNO 

* 

ELSE 

PNT02F  LEAU  5,U 

* 

REMOVE  R 

JMP  NMAXNO 

* 

GO  TO  NMAXNO 

* 

ELSE 

PNT02C  LDA  1  ,U 

* 

R-EXP  R-EXP  +  2 

ADDA  #$02 

STA  1,U 

BCC  PNT030 

* 

IF  R-EXP  >  127 

* 

THEN 

LDA  ,U 

* 

IF  R-SGN  -  POSITIVE 

BMI  PNT031 

* 

THEN 

LEAU  5,U 

* 

REMOVE  R 

JMP  PMAXNO 

* 

GO  TO  PMAXNO 

* 

ELSE 

PNT031  LEAU  5,U 

* 

REMOVE  R 

jmp  nmaxno 

* 

GO  TO  NMAXNO 

* 

ELSE 

PNT030  LDA  it$bO 

* 

R-MAN  $400000 

STA  2 ,U 

PNT02E  LDD  1 ,U 

* 

CONDENSE  R 

LSLB 
LSR  ,U+ 
RORA 
RORB 
STD  ,U 
RTS 


82 


i 


3 


****************************************************************************** 


*  * 

*  SUBROUTINE  PLUS  REPLACE  THE  TWO  REAL  NUMBERS  LOCATED  ON  T1IE  TOP  OK  * 

*  THE  USER  STACK  WITH  THEIR  ARITHMETIC  SUM.  * 

*  * 

*  ENTRY:  TWO  NUMBERS  CONTAINED  IN  THE  TOP  8  BYTES  OF  USER  STACK  * 

*  * 

*  EXIT:  SUM  CONTAINED  IN  THE  TOP  4  BYTES  OF  USER  STACK  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

*  * 

*  STACK  USAGE:  S  -  5  BYTES  * 

*  U  ■  8  BYTES  * 

*  * 


****************************************************************************** 

PLUS  LEAU  -J],U  *  EXPAND  X 

LDB  8 ,U 
SEX 

STA  ,U 
LSL  11,U 
ROL  10, U 
ROL  9 ,U 
ROL  8 , U 
LDD  8  ,U 
STD  1,U 
LDD  10, U 
STD  3 ,U 

LDB  12, U  * EXPAND  Y 

SEX 

STA  8,U 
LSL  15 ,U 
ROL  15, U 
ROL  13, U 
ROL  12, U 
LDD  12, U 
STD  9,U 
LDD  14, U 
STD  11,U 
LDD  <<$0000 
STD  5 ,U 
STA  7,U 
STD  13, U 
STA  15, U 

LDD  1,U  *  CASE  ABS(X)  -  ABS(Y)  OF 

CMPD  9 ,U 

BHI  PNT032 

BLO  PNT033 

LDD  3 ,U 

CMPD  11,U 

BHI  PNT032 

BLO  PNT033 

LDA  ,U  *  ABS(X)  -  ABS(Y):  IF  X-SGN  EXOR  Y-SGN  -  1 

EORA  8 ,U 

BE(}  PNT034 
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t 


* 

THEM 

LEAU  16,  U 

* 

REMOVE  X,  Y 

JMP  ZERO 

* 

GO  TO  ZERO 

* 

ELSE 

LEAU  8,U 

* 

REMOVE  X 

INC  l.U 

* 

Y-EXP  Y-EXP  +  1 

BEQ  PNT035 

* 

IF  Y-EXP  <-  127 

* 

THEN 

JMP  SHRINK 

* 

CO  TO  SHRINK 

* 

ELSE 

LDA  ,U 

* 

IF  Y-SGN  -  POSITIVE 

BMI  PNT036 

* 

THEN 

LEAU  8 ,U 

* 

REMOVE  Y 

JMP  PMAXNO 

* 

CO  TO  PMAXNO 

* 

ELSE 

LEAU  3,U 

* 

REMOVE  Y 

JMP  NMAXNO 

* 

GO  TO  NMAXNO 

LDD  ,U 

* 

ABS(X)  >  ABS(Y):  EXCHANGE  X 

LDX  8 ,U 

STD  8 ,U 

STX  ,U 

LDD  2,U 

LDX  10, U 

STD  10, U 

• 

STX  2,U 

LDD  4 ,U 

LDX  12, U 

STD  12, U 

STX  4 ,U 

* 

GO  TO  ABS(X)  <  A3S( Y) 

LDA  9,U 

* 

ABS(X)  <  ABS(Y):  IF  Y-EXP  - 

SUBA  l.U 

CMPA  #$18 

t 

BLS  PMT037 

A 

THEN 

LEAU  8,U 

A 

REMOVE  X 

JMP  SHRINK 

A 

GO  TO  SHRINK 

A 

ELSE 

TSTA 

A 

IF  Y-EXP  -  X-EXP  <>  0 

BEQ  PNT030 

A 

THEN 

PSIIS  A 

A 

FOR  I  1  TO  Y-EXP  ■ 

LSR  2,U 

A 

X-MAN  X-MAN  /  2 

ROK  3 ,U 

ROR  4 ,U 

ROR  5 ,U 

ROR  6 ,U 

ROR  7 ,U 

DEC  ,S 

BNE  PNT039 
LEAS  1,S 

LDA  ,U 

A 

IF  Y-SGN  EXOR  X-SGN  -  0 

EORA  8 ,U 

24 


B 
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I 


I 


I 


BNE  Pi' .TO  3 A 

* 

LDD  14, U 

* 

ADDD  6,U 

STD  14, U 

LDD  12, U 

ADCB  5,U 

ADCA  4 ,U 

STD  12, U 

LDD  10, U 

ADCB  3 ,U 

ADCA  2 ,U 

STD  10, U 

BCC  PNT03B 

* 

* 

ROR  10, U 

* 

ROR  11,U 

ROR  12, U 

ROR  13, U 

ROR  1 4 ,U 

ROR  15 ,U 

INC  9 ,U 

* 

BNE  PNT03B 

* 

* 

LDA  G,U 

** 

BMI  PNT03C 

* 

LEAU  16, U 

* 

JMP  PMAXNO 

* 

* 


PNT03C  LEAU  16,U  * 

JMP  NMAXMO  * 

PNT03B  LEAU  S,U  * 

JMP  SHRINK.  * 


PNT03A  LDD 

14, U 

SU3D 

6  ,U 

STD 

14, U 

LDD 

12, U 

S8CB 

5,U 

SBCA 

4,U 

STD 

12, U 

LDD 

10, U 

SBCB 

3  »U 

SBCA 

2  ,U 

STD 

10, U 

LEAU 

8,U 

JMP 

LFTJST 

THEN 

'i-'.Wi  Y-MAN  +  X-MAN 


IF  C  SET 
THEN 

ROR  Y-MAN 


Y-EXP  Y-EXP  +  I 
IF  Y-EXP  >  127 
THEN 

IF  Y-SGU  -  POSITIVE 
THEN 

REMOVE  X,  Y 
GO  TO  P21AXNO 
ELSE 

REMOVE  X,  Y 
GO  TO  NMAXNO 

REMOVE  X 
GO  TO  SHRINK 
ELSE 

Y-MAN  Y-MAN  -  X-MAN 


REMOVE  X 
CO  TO  LFTJST 


I 
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**************************************************************************** 


*  SUBROUTINE  NLTPLY  REPLACES  THE  TWO  REAL  NUMBERS  LOCATED  ON  THE  TOP  OF 

*  THE  USER  STACK  WITH  THEIR  ARITHMETIC  PRODUCT. 

*  ENTRY:  TWO  NUMBERS  CONTAINED  IN  THE  TOP  8  BYTES  OF  USER  STACK 

*  EXIT:  PRODUCT  CONTAINED  IN  THE  TOP  4  BYTES  OF  USER  STACK 

*  VOLATILE  REGISTERS:  A,  B,  CC 

*  STACK  USAGE:  S  -  5  BYTES 

*  U  -  10  BYTES 

***************************************************************************** 

MLTPLY  LDD  ,U  *  IF  (X-O)  OR  (Y-O) 

BEQ  PNT03E 
LDD  4,U 
BNE  PNTU3F 

*  THEN 

PNT03E  LEAU  8,U  *  RONOVE  X,  Y 

JMP  ZERO  *  GO  TO  ZERO 

*  ELSE 

PNT03F  LEAU  -10,U  *  ADD  MEMORY 

LDB  10,U  .*  EXPAND  X 

SEX 

STA  ,U 
LDD  12, U 
LSLB 
ROLA 
STD  3.U 
LDD  10, U 
ROLB 

ROLA  , 

STD  1,U 

LDB  14, U  *  EXPAND  Y 

SEX 

STA  5 ,U 
LDD  16, U 
LSLB 
ROLA 
STD  8 ,U 
LDD  14, U 
ROLB 
ROLA 
STD  6 ,U 

LDA  ,U  *  R-SGN  X-SGN  EXOR  Y-SGN 

EORA  5 ,U 
.  STA  10, U 

LDA  00  *  R-EXP  :-  X-EXP  +  Y-EXP  -  128 

LDB  1,U  4 

ADDB  6 ,U 

ROLA 

SUBD  t/$UOHO 


B 
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BLS  PNT040 


TSTA 

BEQ  P1.7041 

LDA  10, U 
BMI  PNT042 

LEAU  18, U 
JMP  PMAXNO 

PNT042  LEAU  18, U 
JMP  NMAXNO 

PNT040  LEAU  18, U 
JMP  ZERO 
PNT041  STB  11,U 

LCD  #$0000 
STD  12, U 
STD  14, U 
LDA  4 ,U 
LDB  9 ,U 
MUL 

STD  16, U 
LDA  3 ,U 
LDB  9,U 
MUL 

ADDD  15, U 
STD  15, U 
LDA  4 ,U 
LDB  8 ,U 
MUL 

ADDD  15, U 
STD  15, U 
BCC  P.VT043 
INC  14, U 
PNT043  LDA  2,C 
LDB  9 ,U 
MUL 

ADDD  14, U 
STD  14, U 
LDA  3 ,U 
LDB  3,U 
MUL 

ADDD  14,  U 
STD  14, U 
BCC  PNT044 
INC  13, U 
PNT044  LDA  4,U 
LDB  7 ,U 
MUL 

ADDD  14, U 
STD  14, U 

BCC  PNT045 


*  IF  R-EXP  >  0 

*  THEN 

*  IF  R-EXP  >  127 

*  THEN 

*  IF  R-SCN  -  POSITIVE 

*  THEN 

*  REMOVE  X,  V,  R 

*  CO  TO  PMAXNO 

*  ELSE 

*  REMOVE  X,  Y,  R 

*  CO  TO  NMAXNO 

*  ELSE 

*  REMOVE  X,  Y,  R 

*  CO  TO  ZERO 

*  R-MAN  X-MAN  *  Y-MAN 


v 


B  -  07 


INC  13, U 
PNT045  LDA  2,U 
LDB  8,U 
MUL 

ADD  13, U 
STD  13, U 
BCC  PNT046 
INC  12, U 
PNT046  LDA  3,U 
LDB  7 ,U 
MUL 

ADDD  13, U 
STD  13, U 
BCC  PMT047 
INC  12, U 
PNT047  LDA  2,U 
LDB  7 ,U 
MUL 

ADDD  12, U 
STD  12, U 

LEAU  10, U  *  REMOVE  X,  Y 

JMP  LFTJST  *  CO  TO  LFTJSR 


B 


**************************************************************************** 


SUBROUTINE  CMPXY  COMPARES  7!1E  REAL  NUMBER  POINTED  TO  3Y  TUE  X  INDEX 
POINTER  WITH  THE  REAL  NUMBER  POINTED  TO  BY  THE  Y  INDEX  POINTER  ANU  SETS 
THE  C  AND  Z  BITS  OF  THE  CONDITION  CODE  RECISTER  SO  THAT  CONDITIONAL 
BRANCHES  MAY  BE  USED. 

ENTRY:  X  POINTER  POINTS  TO  FIRST  REAL  NUMBER 
Y  POINTER  POINTS  TO  SECOND  REAL  NUMBER 

EXIT:  C  AIH)  Z  BITS  OF  CC  REGISTER  SET 

VOLATILE  REGISTERS:  A,  B,  CC 

STACK  USAGE:  S  -  A  BYTES 


CMPXY 

LDD  ,X 

* 

IF  X  >-  0 

BMI  PNTOAB 

* 

THEN 

PSHS  D 

LDD  ,  Y 

* 

IF  Y  <  0 

* 

THEN 

BMI  PNT0A9 

* 

CO  TO  PNT0A9 

* 

ELSE 

CMPD  ,S++ 

* 

CASE  ABS(X)  ABS(Y) 

OF 

blo  p:jtoaa 

* 

ABS(X)  >  ABS(Y): 

GO  TO 

PNTOAA 

Bill  PNTOAB 

* 

ABS(X)  <  ABS(Y): 

GO  TO 

PNTOAB 

* 

ABS(X)  -  A3S( Y) : 

GO  TO 

PNTOAC 

LDD  2 ,Y 

CMPD  2,X 

BLO  PNTOAA 

BHl  PNTOAB 

BRA  PNTOAC 

0 

* 

ELSE 

*0 

3 

o 

03 

ANDA  //$7F 

PSHS  D 

LDD  ,Y 

* 

IF  Y  >-  0 

• 

* 

THEN 

BPL  PNTOAD 

* 

GO  TO  PNTOAD 

* 

ELSE 

CMPD  ,S++ 

* 

CASE  ABS(X) _ ABS(Y) 

OF 

BLO  PNTOAB 

* 

ABS(X)  >  ABS(Y): 

CO  TO 

PNTOAB 

Bill  PNTOAA 

* 

ABS(X)  <  ABS(Y): 

GO  TO 

PNTOAA 

* 

ABS(X)  -  ABS(Y): 

GO  TO 

PNTOAC 

LDD  2,Y 

CMPD  2,X 

BLO  PNTOAB 

Bill  PNTOAA 

PNTOAC 

ANDCC  $FE 

* 

(*  X  -  Y  *)  C  :-  0 

ORCC  #$0A 

RTS 

* 

Z  1 

PNT0A9 

LEAS  2  ,S 

PNTOAA 

ANDCC  V$FA 

* 

( *  X  >  Y  * )  Z  0 

B 


B9 


*  C  0 

RTS 

PHT04D  LEAS  2,S 

PNT04B  ANDCC  #$FB  *  (*  X  <  Y  *)  Z  0 

ORCC  #$01  *  C  1 

RTS 


B  - 
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**************************************************************************** 


SUBROUTINE  CMPXO  COMPARES  TllE  REAL  NUMBER  POINTED  TO  BY  THE  X  INDEX 
POINTER  WITH  ZERO  AND  SETS  THE  C  AND  Z  BITES  OF  THE  CONDITION  CODE 
REGISTER  SO  THAT  CONDITIONAL  BRANCHES  MAY  BE  USED. 

ENTRY:  X  POINTER  POINTS  TO  THE  REAL  NUMBER 

EXIT:  C  AND  Z  BITS  OF  CC  REGISTER  SET 


VOLATILE  REGISTERS:  A,  B,  X,  CC 
STACK  USACE:  S  -  2  BYTES 


********************** 


CMPXO  LDD  ,X 

BMI  PNT04E 

BNE  PNT04F 

ANDCC  tf$FE 
ORCC  #$04 
RTS 

PNT04F  ANDCC  «*$FA 
RTS 

PNT04E  ORCC  r/$Ol 
ANDCC  0$F8 
RTS 


IF  X  >-  0 

THEN 

IF  X  -  0 
THEN 
C  :«  0 
Z  :-  1 

ELSE 
C  :-  0 
Z  :-  0 


ELSE 
C  :*>  1 
Z  0 


! 


K 


* 


I 


****************************************************************************** 


*  * 

*  SUBROUTINE  CONVKT  CONVERTS  THE  REAL  NUMBER  ON  THE  TOP  OF  THE  USER  * 

*  STACK  INTO  A  DECItlAL  FORMAT  SUITABLE  FOR  OUTPUTING  TO  THE  DISPLAY.  * 

*  * 

*  ENTRY:  REAL  NUMBER  CONTAINED  IN  TOP  A  BYTES  OF  THE  USER  STACK  * 

*  * 

*  EXIT:  NUMBER  IN  DECIMAL  FORMAT  CONTAINED  IN  THE  TOP  6  BYTES  OF  THE  * 


*  USER  STACK  IN  THE  FOLLOWING  ORDER:  SICN  OF  THE  EXPONENT,  SIGN  OF  * 

*  THE  MANTISSA,  THE  EXPONENT,  AND  THE  MANTISSA  * 

*  * 


*  VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

*  * 

*  STACK  USACE:  S  «  12  BYTES  * 

*  U  -  25  BYTES  * 

*  * 


****************************************************************************** 


CONVKT  LDD  ,U 

BNE  POT600 

PSHU  0 
RTS 

PNT600  LUB  ,U 
SEX 

PSHU  A 
LSL  A ,U 
ROL  3 ,U 
ROL  2 ,U 
ROL  1,U 
LDB  1,U 
SUBB  lt$0 0 
SEX 

PSHU  A 
BPL  PNT601 
NEGB 

PNT601  STB  2 ,U 

BNE  PFXOOO 

JSR  ZERO 
BRA  PFB5A 

PFXOOO  LDD  it $0000 
PSHU  D 
LDB  A,U 
LDA 

PNT602  DECA 
LSLB 

BPL  PNT602 
ASR  2 ,U 
RORA 
RORB 
PSHU  D 

PF85A  LDD  0S1OAD 


*  IF  [U]  -  0 

*  THEN 

*  ADD  SIGNS 

*  ELSE 

*  EXPAND  ( U 1 


*  It  b  «  U 

*  THEN 

*  [UJ  :-  0 


ELSE 

FORM  B  ON  U 


*  L0C(2) 


B  -  92 


I  . 


P5HU  D 
LDD  #$3FCD 
PSUU  D 
JSR  MLTPLY 
JSR  COP* 
LDB  ,U 
SEX 

FSHU  A 
LSL  4,U 
ROL  3 ,U 
ROL  2 ,U 
ROL  1,U 
LDA  1,U 
SUBA  #$8 0 
BUS  PNT603 

LEAU  5 ,U 
JSR  ZERO 
CLR  10, U 
BRA  PNT604 

PNT603  BNE  PNT605 

LDD  #$0000 
STD  3,U 
LDD  #$8180 
STD  l.U 
LDA  #$01 
STA  11,U 
BRA  PNT606 

PNT605  CLR  ,-U 
PSltS  A 

PNT607  LSL  3,U 
ROL  ,U 
DEC  ,S 
bne  p:it6o7 

LEAS  1 ,S 
LDA  ,U 
LSL  3 ,U 
ADC A  #$00 
STA  ,U 
STA  12, U 
LDD  #$0000 
STD  3,U 
STA  5,U 
LDB  ,U 
LDA  #$88 
PFX002  DECA 
LSLU 

3PL  PFX002 
STD  2 ,U 
LEAU  l.U 

PNT606  LSR  ,U+ 


*  COPY 

*  EXPAND 


IF  ( [U] EXP  -  $80)  <  0 


THEN 

REMOVE  |U] 

IUJ  0 

D  0 

ELSE 

IF( [UjEXP  -  $80)  -  0 
THEN 

[UjEXPMAN  1 


D  :»  1 


ELSE 

ZERO  RESULT 

FOR  I  ( l UjEXP  -  $80)  DOWNTO  1  DO 

LSL  [ U ) MAN 
ROL  RESULT 


ROUND  RESULT 


D  RESULT 
ZERO  IuJman 


FORM  D  ON  U 


SHRINK 


B  -  93 


l 


/ 


I 


ROR  ,U 
ROR  1,U 
ROR  2,U 
ROR  3,U 

PNT603  LDA  10,U 
PSHU  A 
CLR  1 1 , U 
LDA  #$08 
PStiS  A 

PNT609  LSL  ,U 

LDA  11, U 
ADCA  1 1 ,11 
DAA 

STA  11,U 
DEC  ,S 
BNE  PNT609 
LEAS  1,S 
LEAU  1,U 
JSR  NEGATE 

PNT604  JSR  PLUS 

LDD  #$AEC7 
PSHU  D 
LDD  #$4149 
PSHU  D 
JSR  MLTPLY 
LEAS  -4 , S 
LEAX  ,S 
JSR  STOKE 
LEAU  4 ,U 
LDD  #$0000 
PSHU  D 
LDD  #$40C0 
PSHU  D 
LDA  #$0C 
PSHS  A 

PNT60C  LEAX  1 ,S 

JSR  RECALL 
LDD  #$U000 
PSHU  D 
LDA  #$38 
LDB  ,S 

PNT60D  DEC A 
LSLB 

BPL  PNT60D 
LSRA 
RORB 
PSHU  D 
JSR  INVRSE 
JSR  MLTPLY 
JSR  MLTPLY 
LDD  #$0000 
PSHU  D 
LDD  #$40C0 
PSHU  D 


CONVERT  D  TO  DEC 


*  NECATE 

*  + 

*  LN(10) 


*  * 

*  (*  EXP{ [ U J )  *) 


*  REMOVE  [Uj 

*  1 

*  FOR  I  12  DOWN TO  1  DO 

% 

*  X 

*  I 


B 


94 


JSR  PLUS 

* 

+ 

DEC  ,S 

BNE  PMT60C 
LEAS  5,S 

LDD  8  ,U 

PSHU  D 

* 

FORM  A  ON  U 

LDB  9 ,U 

LDA  #$80 

LSRA 

RORB 

PSHU  D 

ROR  2,U 

ROR  3 ,U 

JSR  MLTPLY 

* 

* 

LDD  ,U 

LSLB 

A 

IF  tUj  >-  1 

ROLA 

CMPA  #$81 

BLO  PNT60E 

* 

THEN 

LDD  #$6666 
PSHU  D 

LDD  #$3EE6 
PS!ll’  D 

JSR  MLTPLY 

A 

{UJ  tUj  / 

10 

LDA  4,U 

BMI  PFX001 

A 

IF  D-SCN  <  0 

it 

THEN 

LDA  6 ,U 

ADDA  #$01 

A 

ABS(D) 

ABS(D)  +  1 

BRA  PFB6 

A 

ELSE 

LDA  6 ,U 

ADDA  #$99 

A 

ABS(D) 

ABS(D)  -  1 

PFB6 

DAA 

STA  6 ,U 

% 

A 

(*  CONVERT  C  *) 

PNT60E 

LSL  3,U 

ROL  2,U 

A 

EXPAND 

ROL  1,U 

ROL  ,U 

LDA  #$80 

A 

IF  ($80  -  [U)EXP) 

<>  0 

SUBA  ,U+ 

BEQ  PNT60F 

A 

THEN 

PSHS  A 

A 

FOR  I  ($80 

-  IUJEXP)  DOWNTO 

PNT610 

LSR  ,U 

ROR  1,U 

ROR  2,U 

DEC  ,S 

BNE  PNT610 
LEAS  1,S 

A 

LSR  [ U  J  MAN 

PNT60F 

LDD  #$0000 

A 

ZERO  RESULT 

STD  6,U 
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FOR  I  :«  24  DOWNTO  1  DO 


STA  8,U 

LDA  #$18  * 

PSHS  A 

PNT611  LSR  ,U  *  LSR  [U]MAM 

ROR  1,1) 

ROR  2 ,U 

ROR  6,U  *  ROR  RESULT 

ROR  7 ,U 
ROR  8 ,U 

LDA  6 ,U  *  CORRECT 

TFR  A,B 
CMPA  #$80 
BLO  PNT612 
SUBB  *>$30 
PNT612  TFR  B,A 

ANDA  #$0F 
CMPA  #$08 
BLO  PNT613 
SUBB  #$03 
PNT613  STB  6 ,U 
LDA  7 ,U 
TFR  A,B 
CMPA  #$80 
BLO  PMT614 
SUBB  #$30 
PNT614  TFR  B,A 

ANDA  #$0F 
CMPA  #$08 
BLO  PMT615 
SUBB  #$03 
PNT615  STB  7 ,U 
LDA  8  ,'J 
TFR  A, B 
CMPA  #$80 
BLO  PNT61b 
SUBB  #$30 
PNT616  TFR  B.A 

AMD A  #$ OF 
CMPA  #$08 
BLO  PMT617 
SUBB  #$03 
PNT617  STB  8,U 
DEC  ,3 
BNE  P1.T611 
LEAS  1,S 
LEAU  3 ,U 
RTS 
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I 

[ 

I 


f 


SUBROUTINE  INCH  READS  THE  STATUS  OF  THE  COLO.'::;  AND  DO'-'  LINES  OF 
THE  KEYPAD  AFTER  A  KEY  !L\S  BEEN  DEPRESSED  AND  DLCODES  THESE  LINES 
TO  CIVE  A  CHARACTER. 


ENTRY:  NONE 


EXIT:  ACCA  CONTAINS  THE  CHARACTER 


I 


VOLATILE  RECISTERS:  A,  B,  X,  CC 


STACK  USACE:  S  -  2  BYTES 


**************************************************************************** 


INCH  LDA  KEYCR 
BPL  INCH 

LDA  KEYBRD 
BPL  PNT050 

LSLA 

BPL  PNT051 
LSLA 

BPL  PNT052 

LSLA 

BMI  INCH 

LDB  '/SOC 
LSLA 

BRA  PNT053 

PNT052  LDB  rf$UH 
LSLA 
LSLA 

BRA  PNT053 

PNT051  LDB  lf$ 04 
LSLA 
LSLA 
LSLA 

BRA  PNT053 

PNT050  LDB  #$00 
LSLA 
LSLA 
LSLA 
LSLA 

PNT053  BPL  PNT054 

I  SL\ 


REPEAT 

read(kkyck) 

UNTIL  DATA  READY 
RF.AD(  KEYBRD) 

IF  B7  <>  0 

the:; 

IF  B6  <>  0 

THEN 

IF  B5  <>  0 
THEN 

IF  BA  <>  0 
THEN 

CO  TO  INCH 
ELSE 
B  :•  12 


*  ELSE 

A  B  a 


*  ELSE 

*  B  :»  A 


*  ELSE 

*  B  0 


*  IF  B3  <>  0 

*  THEN 

*  IF  '2  <>  0 


B  -  97 


v 


BPL  PNT055 


B  -  98 


* 


****************** ************************ ************p**«* ****************** 


* 

SUBROUTINE  RDDIG  INPUTS  A  DECIMAL  DIGIT  FROM  THE  KEYPAD  * 

* 

ENTRY:  NONE  * 

* 

EXIT:  ACCA  CONTAINS  THE  DECIMALA  DIGIT  * 

* 

VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

* 

STACK  USAGE:  S  -  9  BYTES  * 


*  * 
****************************************************************************** 

RDDIG  LEAS  -1,S  *  RESERVE  TEMP 

PNT057  JSR  INCH  *  INCH 

*  CASE  A  OF 
CMPA  #$09  *  0,...,9: 

BHI  PNT058 
PSHS  A 

JSR  CRLF  *  CRLF 

PULS  A 

JSR  OUTCH  *  OUTCH 

STA  ,S  *  TEMP  :»  A 

BRA  PNT057  *  GO  TO  PNT057 

PNT05S  CMPA  |  *  ENTER: 

BNE  PNT059 

LDA  ,S+  *  A  TEMP 

ANDCC  #$FD  *  V  :«  0 

RTS 

PNT059  CMPA  //' R  *  DP,Y,N,C:  GO  TO  PNT057 

BNE  PNT057 

LEAS  1,S  *  REPEAT:  REMOVE  TEMP 

ORCC  //$02  *  V  :-  1 

RTS 


****************************************************************************** 
*  * 

*  SUBROUTINE  RDANSW  INPUTS  A  YES  OR  NO  ANSWER  FROM  THE  KEYPAD.  * 

*  * 

*  ENTRY:  NONE  * 

*  * 

*  EXIT:  ACCA  CONTAINS  THE  CHARACTER  'Y'  OR  'N'  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

*  * 

*  STACK  USACE:  S  -  8  BYTES  * 

*  * 

****************************************************************************** 
RDANSW  LEAS  -1  ,S  *  RESERVE  TEMP 

PNT05A  JSR  INCH  *  INCH 

CUP A  t'X  *  CASE  A  OE 

BEQ  PNT05B 
CMPA  #>'N 
BEQ  PNT05R 

CMPA  I" |  *  ENTER: 

BNE  PNT05C 

LDA  ,S+  *  A  TEMP 

ANDCC  f/$FD  *  V  0 

RTS 

PNT05B  PS1IS  A  *  Y,N: 

JSR  CRLF  *  CRLF 

PULS  A 

JSR  OUTCtl  *  OUTCtl 

STA  ,S  *  TEMP  A 

BRA  PNT05A  *  GO  TO  PNT05A 

PNT05C  CMPA  #'R  *  0, . . . ,9 ,DP,C : 

BNE  PNT05A  *  GO  TO  PNT05A 

LEAS  1,S  *  REPEAT:  REMOVE  TEMP 

ORCC  It $02  *  V  :-  1 

RTS 


B  -  100 


**************************************************************************** 


I 


I 


I 


SUBROUTINE  RDKEY  INPUTS  A  REAL  NUMBER  FROM  THE  KEYPAD  AND  DISPLAYS 
THIS  NUMBER  AS  IT  IS  BEINC  KEYED  IN. 

ENTRY:  NONE 

EXIT:  REAL  NUMBER  IS  PUSHED  ONTO  THE  TOP  A  BYTES  OF  USER  STACK 

1 

VOLATILE  REGISTERS:  A,  B,  X,  CC 

i 

STACK  USAGE:  S  -  '  BYTES 

U  -  18  BYTES 

1 

**************************************************************************** 


RDKEY  CLK  ,-S 
CLR  ,-S 
LDD  #$0000 
PSHS  D 
PSHS  D 
PSHS  D 
LDD  #$40 CO 
PSHS  D 

PNT05U  JSR  INCH 
LDB  9,S 
BNE  PNT05E 

PSHS  A 
JSR  CRLF 
PULS  A 
DEC  9 ,S 

PNT05E  CMPA  #$09 
BUI  PNT05F 
JSR  OUTCH 
PSHS  A 
LDD  7  ,S 
PSHU  D 
LDD  5,S 
PSHU  D 
LDD  #$0000 
PSHU  D 
LDD  #$4250 
PSHU  D 
JSR  MLTPLY 
LDA  ,S+ 

BEQ  PNT060 
PSHS  A 
LDD  #$0000 
PSHU  D 
PULS  B 
LDA  #$8U 

PKT061  LECA 
LSLB 

r:’L  .’::vu:»i 


*  DISFLG  :-  FALSE 

*  FRCFLG  :-  FALSE 

*  HUM  :-  0 


*  DIV  :-  1 


*  INCH 

*  IF  NOT  DISFLC 

*  THEN 

*  CRLF 

*  DISFLC  :-  TRUE 

*  CASE  A  OF 

*  0,...,9:  OUTCH 

*  NUM  :-  NUM  *  10  +  A 
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LSRA 
RORB 
PSHU  D 

•JSR  PLUS 
PNT060  PULU  D 
STD  4 ,S 
PULU  D 
STD  6,S 

LDA  8,S  *  IF  FRCFLG  -  FALSE 

*  THEN 

BEQ  PNT05D  *  GO  TO  PNT05D 

*  ELSE 

LDD  2 ,S  *  DIV  DIV  *  10 

PSHU  D 

LDD  tS 

PSHU  D 

LDD  f/$0000 

PSHU  D 

LDD  #$4250 

PSHU  D 

JSR  >1LT PLY 

PULU  D 

STD  ,S 

PULU  D 

STD  2,S 

BRA  PNT05D  *  CO  TO  PNT05D 

PNT05F  CM PA 

BNE  PKT062 

_  JSR  OUTCH  *  DP:  OWCH 

9  LDA  #$FF  *  FRCFLG  :«  TRUE 

STA  8,S 

BRA  PNT05D  *  GO  TO  PNT05D 

PUT062  CMPA  #'| 

BNE  PNT063 

LDD  6,S  *  ENTER:  [Ul  SUM  /  DIV 

PSHU  D 

LDD  4  ,S 

PSHU  D 

LDD  2,S 

PSHU  D 

LDD  ,S 

PSHU  D 

JSR  IHVKSE 

JSR  MLTPLY 

LEAS  10, S  *  REMOVE  NUM,  DIV,  FRCFLC,  DISFLG 

ANDCC  #$FD  *  V  0 

RTS 

PNT063  CMPA  #'C 

BNE  PMT064 

LEAS  10, S  *  CLEAR:  REMOVE  NUM,  DIV,  FRCFLG,  DISFLC 

JSR  CRLF  *  CRLF 

BRA  RDKEY  *  RDKEY 

PNT064  CMPA  #'R 

BNF.  PNT05D  *  OTHER:  GO  TO  PN705D 

• 


B  -  102 


LEAS  10,S 
ORCC  l/$ 02 
RTS 


*  REHEAT:  REMOVE  KUM,  DIV,  FRCFLG,  DISFLC 

*  V  1 


/ 
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I 


N 


****************************************************************************** 
*  * 

*  SUBROUTINE  SET PUR  SETS  THE  OUTPUT  VOLTAGE  OF  THE  HP6130C  DIGITAL  * 

*  VOLTAGE  SOURCE  TO  THE  VALUE  SPECIFIED  BY  THE  REAL  NUMBER  LOCATED  ON  * 

*  THE  TOP  OF  THE  USER  STACK.  CHECKS  ARE  MADE  TO  INSURE  THAT  THE  VOLTAGE  * 

*  SET  IS  NOT  LESS  THAN  ZERO  VOLTS  NOR  GREATER  THAN  THE  VOLTAGE  SPECIFIED  * 

*  BY  THE  REAL  NUMBER  LOCATED  AT  PSMAX.  THE  ACTUAL  VALUE  SET  IS  STORED  * 

*  AT  UO.  * 


*  * 

*  ENTRY:  DESIRED  VOLTAGE  SETTING  CONTAINED  IN  TOP  4  BYTES  OF  USER  STACK  * 

*  MAXIMUM  VOLTACE  SETTINC  CONTAINED  IN  4  BYTES  AT  PS!IAX  * 

*  * 

*  EXIT:  HP6130C  UPDATED  * 

*  ACTUAL  VOLTAGE  SETTING  STORED  AT  UO  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  Y,  CC  * 

*  * 

*  STACK  USAGE:  S  -  6  BYTES  * 

*  U  -  14  BYTES  * 

*  * 


****************************************************************************** 

SETPWR  LDD  #$0000  *  IF  X  <-  0.25 

PSIIU  D 
LDD  #$3FC0 
PSHU  D 
LEAX  4,U 
LEAY  ,U 


JSR 

C1PXY 

Bill 

PNT065 

* 

THEN 

LEAU  8,U 

* 

REMOVE  X,  0.25 

LDD  #$0000 

it 

UO  :-  0 

STD 

UO 

STD 

UO+2 

LDA 

PSFLGS 

* 

X10  :«  0 

ANDA  #$F7 

% 

STA 

PSFLGS 

* 

REPEAT 

PNT066  LDA 

PSFLGS 

* 

R£AD( PSFLGS) 

BPL 

p:;to66 

* 

UNTIL  READY  TO  SEND 

LDD 

#$0000 

* 

-  PSDATA  :-  0 

STD 

PSDATO 

RTS 

* 

ELSE 

PHT065  LDD 

PSMAX+2 

* 

IF  X  >■  PS!1AX 

STD 

2.U 

LDD 

PSMAX 

STD 

,u 

JSR 

CMPXY 

BLO 

PNT067 

‘  * 

THEN 

LDD 

2,U 

* 

X  PSMAX 

STD 

6,U 

LDD 
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STD  4,U 

PNT067  LEAU  4,U 
LDD  ,U 
STD  UO 
LDD  2,U 
STD  U(H-2 
LDD  #$FF80 
PSHU  D 
LDD  #$477F 
PSHU  D 
JSR  CMPXY 
BLO  PNT068 

LDD  #$6666 
STD  2,U 
LDD  #$3EE6 
STD  ,U 
JSR  HLTPLY 
LDA  PSFLGS 
ORA  #$03 
STA  PSFLGS 
BRA  PNT069 

PKT068  LEAU  4,U 

LDA  PSFLGS 
ANDA  #$F7 
STA  PSFLGS 

PNT069  LSL  3,U 
ROL  2,U 
ROL  1,U 
ROL  ,U 
LDA  #$8F 
SUBA  ,U 
PSIIS  A 

PNT06A  LSR  1 ,U 
ROR  2 ,U 
DEC  ,S 
BME  PNTObA 
LEAS  1,S 
BCC  PN'TObB 
INC  2  ,U 
BME  PKT06B 

me  i  ,u 

POT06B  LDA  PSFLGS 
BPL  PNT06B 
LDD  1,U 
STD  PSDATO 
LEAU  4 ,U 
RTS 


*  REMOVE  PSIIAX 

*  UO  X 


*  IF  X  >-  16383.75 


*  THEN 

*  X  X  /  10 

t 

/ 


X10  1 


*  ELSE 

*  REMOVE  16383.75 

*  X10  0 


*  EXPAND  X 


*  FOR  I  ($8F  -  X-EXP)  DOUNTO  I  DO 


*  SHIFT  X-MAN  RIGHT 


*  ROUND  X-MAN 


*  REPEAT 

*  READ( PSFLGS) 

*  UNTIL  PvEADY 

*  PSDATA  X-MAN 

*  REMOVE  X 
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************** **************************************************************** 


*  * 

*  SUBROUTINE  SETCUR  PROMPTS  THE  USER  FOR  THE  DESIRED  OUTPUT  CURRENT  * 

*  LIMIT  FOR  TllE  HP6130C  UICITAL  VOLTAGE  SOURCE.  THIS  ROUTINE  THEN  * 

*  READS  THE  DESIRED  LIMIT  FROM  THE  KEYPAD  AND  COMPARES  TllE  DESIRED  LIMIT  * 

*  WITH  THE  8  POSSIBLE  VALUES  OF  THE  CURRENT  LIMIT.  THIS  ROUTINE  THEN  * 

*  SETS  THE  CURRENT  LIMIT  TO  THE  CLOSEST  MATCH  TO  THE  DESIRED  VALUE  AND  * 


*  RETURNS  THE  SET  VALUE  OF  THE  CURRENT  LIMIT  OH  THE  TOP  OF  THE  USER  STACK.  * 

*  THE  NEW  CURRENT  LIMIT  VALUE  IS  SENT  TO  THE  HP6130C  ON  TllE  NEXT  CALL  TO  * 

*  SUBROUTINE  SETPWR.  * 

*  * 

*  ENTRY:  NONE  * 

*  * 

*  EXIT:  NEW  CURRENT  LIMIT  SETTINC  CONTAINED  IN  TOP  4  BYTES  OF  THE  USER  * 

*  STACK  * 

*  /  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  Y,  CC  * 


*  * 

*  STACK  USAGE:  S  -  11  BYTES  * 

*  U  -  4  BYTES  * 

*  * 


44* ****4** ****** **************************************************** ********** 

SETCUR  JSR  CRLF  *  REPEAT 

JSR  SCRSTR  *  CRLF 

FCC  /WHAT  /  *  WRITE( 'WHAT  IS  THE  POWER  SUPPLY  OUTPUT  CURRENT 

FCC  /IS  Til/  *  LIMIT  IN  MILLIAMPS?' ) 

FCC  /E  POW/ 

FCC  /ER  SU/ 

FCC  / PPLY  / 

FCC  /OUTPU/ 

FCC  /T  CUR/ 

FCC  /RENT  / 

FCC  /LIMIT/ 

FCC  /  IN  11/ 

FCC  /ILLIA/ 

FCC  /MPS?/ 

FC3  EOT 

JSR  RDKEY  *  RDKEY 

BVS  SETCUR  *  UNTIL  V  CLEAR 

LUD  if $OQ'M  *  IF  X  <=  35 

PSHU  D 
LDD  #$4346 
PSHU  D 
LEAX  4 ,U 
LEAY  ,U 
JSR  CMPXY 
Bill  PNT06C 

*  THEN 

LDA  PSFLCS  *  CURRENT  :-  2U 

ORA  #$07 
STA  PSFLCS 

LEAU  8 ,U  *  REMOVE  X,  35 

LDD  #$0000  *  £UJ  :-  20 

PSHU  0 
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LDD  #$42D0 
PSHU  D 
BRA  PT0073 

PNT06C  LDD  #$0000 
STD  2,U 
LDD  #$4378 
STD  ,U 
JSR  CMPXY 
BUI  PCT06D 

LDA  PSFLGS 
ANDA  #$FB 
ORA  #$06 
STA  PSFLGS 
LEAU  8,U 
LDD  #SOOOO 
PSHU  D 
LDD  #$4364 
PSHU  D 
BRA  PT0073 

PNT06D  LDD  #$0000 
STD  2,U 
LDD  #$43D5 
STD  ,U 
JSR  CMPXY 
BHI  PNT06E 

LDA  PSFLGS 
ANDA  #$FS 
ORA  #$05 
STA  PSFLGS 
LEAU  8,U 
LDD  #$0000 
PSHU  D 
LDD  #$ 43C6 
PSHU  D 
BRA  PT0073 

PNT06E  LDD  #$0000 
STD  2,U 
LDD  #$ 444B 
STD  ,U 
JSR  CMPXY 
BHI  PNT06F 

LDA  PSFLCS 
ANDA  #$F8 
ORA  #$04 
STA  PSFLGS 
LEAU  8, U 
LDD  #$0000 
PSHU  D 


*  ELSE 

*  IF  X  <-  60 


*  THEN 

*  CURRENT  50 


*  REMOVE  X,  60 

*  lUj  50 


*  ELSE 

*  IF  X  <-  85 


*  THEN 

*  CURRENT  70 


*  REMOVE  X,  85 

*  [U]  70 


*  ELSE 

*  IF  X  <-  150 


*  THEN 

*  CURRENT  100 


*  REMOVE  X,  150 

*  [U]  :«  100 
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LOO  #$43E4 
PSHU  D 
BRA  PT0073 


PNT06F  LDD  #$8000 
STD  2,U 
LOD  #$44D7 
STD  ,U 
JSR  CMPXY 
BUI  PNT070 

LDA  PSFLCS 
AND  A  tf  $F8 
ORA  #$03 
STA  PSFLGS 
LEAU  8,U 
LDD  #$0000 
PSHU  D 
LDD  #$4464 
PSHU  D 
BRA  PT0073 

PNT070  LOD  #$0000 
STD  2,U 
LDD  #$454B 
STD  ,U 
JSR  CMPXY 
Bill  PIJT07 1 

LDA  PSFLGS 
AMD A  #$F8 
ORA  #$02 
STA  PSFLGS 
LEAU  8 ,U 
LDD  #$0000 
PSHU  0 
LDD  #$44FD 
PSHU  D 
BRA  PT0073 

PHT071  LDD  #$4000 
STD  2 ,U 
LDD  #$436 A 
STD  ,U 
JSR  CIPXY 
Bill  PKT072 

LDA  PSFLGS 
ANDA  #$Fo 
ORA  #$01 
STA  PSFLCS 
LEAU  8,U 
LDD  #$8000 
PSHU  D 


ELSE 

IF  X  <-  330 


THEN 

CURRENT  200 


REMOVE  X,  350 
(UJ  200 


ELSE 

IF  X  <-  600 


THEN 

CURRENT  500 


REMOVE  X,  600 
lU)  500 


ELSE 

IF  X  <-  850 


THEN 

CURRENT  :»  700 


REMOVE  X,  850 
[UJ  700 
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-*  X 


LDD  #$4557 

PSHU  D 

BRA  PT0073 

* 

ELSE 

PNT072 

LDA  PSFLCS 

AND A  #$F8 

STA  PSFLCS 

* 

CURRENT  1000 

LEAU  8  ,U 

* 

REMOVE  X,  850 

LDD  #$0000 

PSHU  D 

LDD  #$457D 

PSHU  D 

* 

(U J  :«  1000 

PT0073 

LDD  2 , U 

STD  PSCURR+2 
LDD  ,U 

STD  PSCURR 

RTS 

*  PSCURR  [Ul 

» 

/ 

I 


i 


i 


t 


I 


************************* ***************************************************** 


*  * 

*  SUBROUTINE  RDPN'K  READS  THE  PRESENT  VOLTAGE  SETTING  OF  THE  UP6130C  * 

*  DIGITAL  VOLTAGE  SOURCE  AND  RETURN’S  THIS  VALUE  ON  THE  TOP  OF  THE  USER  * 

*  STACK.  * 

*  * 

*  ENTRY:  NONE  * 

*  * 

*  EXIT:  VOLTAGE  SETTING  CONTAINED  IN  TOP  4  BYTES  OF  USER  STACK  * 

*  * 

*  VOLATILE  REGISTERS:  A,  B,  X,  CC  * 

*  * 


STACK  USAGE: 


5  BYTES 
18  BYTES 


****************************************************************************** 


RDPWR  LDD  PSDATO 
BNE  PNT073 

JMP  ZERO 
PNT073  LEAU  -8,U 
LSLB 
ROLA 
STD  2,U 
BCC  PNT074 

LDA  #$FF 
STA  ,U 
BRA  PNT075 

PNT074  CLR  ,U 
PNT075  LDD  i)  SOOOO 
STD  4 ,U 
STD  6 ,U 
LDA  #$8E 
STA  1,U 
JSR  LFTJST 
LDA  PSFLGS 
ANDA  <>$08 
BEQ  PMT076 

LDD  #$0000 
PSHU  D 
LDD  #$4230 
PSHU  D 
JSR  MLTPLY 
PNT076  RTS 


*  D  :-  PSSET 

*  IF  PSSET  =  0 

*  THEN 

*  GO  TO  ZERO 

*  RESERVE  MEMORY 

*  X-MAN  :*=  ABS( PSSET) 


*  IF  PSSET  <  0 

*  THEN 

*  X-SGN  :-  NEGATIVE 


*  ELSE 

*  X-SGN  :-  POSITIVE 


*  X-EXP  :=  14 
« 

*  LEFT  JUSTIFY  X  MID  SHRINK 

*  IF  X10  »  1 


*  THEN 

*  X  :-  X  *  10 
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SUBROUTINE  PWRSEN  APPLIES  BIASING  VOLTAGE  TO  EACH  SECONDARY  SENSOR 
WHOSE  SENSOR  DATA  INDICATES  THAT  INTERNAL  BIASING  IS  REQUIRED  BASED 
UPON  THE  PRESENT  VALUE  OF  THE  REAL  NUMBER  LOCATED  AT  YD. 

ENTRY:  SENSOR  DATA  FOR  ALL  SENSORS  COMPLETED 

A  BYTES  AT  YD  MUST  CONTAIN  NEXT  DESIRED  SENSOR  INPUT  SETTING 

EXIT:  APPROPRIATE  SENSORS  ARE  BIASED  WITH  A  CONSTANT  VOLTAGE 

VOLATILE  REGISTERS:  A,  B,  X,  Y,  CC 

STACK  USAGE:  S  -  6  BYTES 


****************************************************************************** 


PWRSEN  LDA  «S01 
PSHS  A 
PNT030  LDA  ,S 

CMPA  NUMSEN 
BHI  PNT077 
LDY  i/SENl 
LDA  ,3 
DECA 
LDB  ?$11 
NUL 

LEAY  B,Y 
LDA  ,  Y 
ANDA  if  $30 
CMPA  if  $30 
BNE  PNT073 

LEAY  9 , Y 
LDX  If  YD 
JSR  CMPXY 
BLS  PNT079 

LEAY  4,Y 
JSR  QIPXY 
Bill  PNT07A 

LDA  #$IO 
LDB  ,S 
PNT07B  AGRA 
DECB 

BNE  PNT07B 
ORA  SENFLC 
STA  SENFLC 
BRA  PNT078 

PHT07A  LDA  0$EF 
LDB  ,S 
PNT07C  ASRA 
DUCU 


*  FOR  I  1  TO  NUMSEN  DO 


*  Y  :-  SEN(I) 


*  IF  S£N(  I)  -  SECONDARY  AND  PWRRQD 


*  THEN 

*  IF  YD  >  SEN( I) . PRNC1 


THEN 

IF  YD  <=  SMN(I).PiO.G2 


THEN 

SENPWR(I)  :-  ON 


ELSE 

SEWPWR(I)  OFF 
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BNE  PNT07C 
AIJDA  SENFLG 
STA  SENFLG 
BRA  PNT078 

* 

PNT079  LEAY  4,Y  * 

JSR  CMPXY 
BLO  PNT07D 

• 

LDA  #$10  * 

LDB  ,S 
PNT07E  ASRA 
DECB 

BNE  PNT07E 
ORA  SENFLG 
STA  SENFLG 
BRA  PNT0715 

* 

PNT07D  LDA  rf$EF  * 

LDB  ,S 
PNT07F  ASRA 
DECB 

BNE  PNT07F 
ANDA  SENFLG 
STA  SNEFLC 
PNT078  INC  ,S 

BRA  PNT030 
P.VT077  LEAS  l,S 
RTS 


ELSE 

IF  YD  >-  S£N( I). PRNC2 


THEN 

SENPWK(I)  ON 


ELSE 

SENPWR(I)  OFF 


% 
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****************************************************************************** 


* 

*  subroutine  ruse.*:  reads  the  value  of  the  a/d  data  lines,  the  a/d 

*  STATUS  LINES,  AND  THE  PROGRAMED  AMPLIFIER  CAIN  AMD  RETURNS  THE  INPUT 

*  VALUE  AS  A  REAL  NUMBER  ON  THE  TOP  OF  THE  USER  STACK.  THIS  ROUTINE 

*  ALSO  CHECKS  FOR  INVALID  A/D  DATA  AND  IF  SO  GENERATES  A  SOFTWARE 

*  INTERRUPT.  THE  PROGRAMMED  AMPLIFIER  CAIN  IS  ALSO  ADJUSTED  TO  GIVE  THE 

*  MAXIMUM  INPUT  SIGNAL  TO  THE  A/D  CONVERTER  WITHOUT  GENERATING  AM 

*  OVERLOAD. 

* 

*  ENTRY:  A/D  IS  P.UNNINC 

*  A/D  INPUT  IS  ENABLED 

*  ONE  SENSOR  IS  SELECTED 

*  EXIT:  A/D  INPUT  IS  CONTAINED  IN  TOP  4  BYTES  OF  USER  STACK 

*  A/D  IS  HELD 

*  VOLATILE  REGISTERS:  A,  b,  CC 

*  STACK  USAGE:  S  «  16  BYTES 

*  U  -  8  BYTES 

****************************************************************************** 


KDSEN 

L'JA  SENCR2 

* 

REPEAT 

BPL  KDSEN 

* 

KEAD( SENCR2 ) 

* 

UNTIL  DATA  READY 

LDD  SEND AO 

* 

READ( SENDAO) 

PSHS  0 

LDD  SENFLG 
PSHS  D 

* 

R£AD( SENFLG) 

ANDB  #$BF 

* 

HOLD  A/D 

ORB  tf  $80 

STB  SENSEL 

* 

DISABLE  INPUT 

ANDA  #$20 

* 

IF  A/D  STATUS  -  INVALID 

BEQ  PNT081 

t 

THEN 

SMI 

* 

S'.'K  J) 

FCB  $03 

PSHS  D 

LDD  SENDAO 

PULS  D 

* 

CLEAR  DATA  MISSED  FLAG 

PNT081 

LDA  ,S 

ANDA  #$40 

* 

IF  A/D  OVERRUN 

BEQ  PNTU82 

* 

THEN 

LDA  1,S 

ANDA  #$03 

* 

IF  GAIN  <>  l 

BEQ  PNT083 

* 

THEN 

DEC  SENSEL 

* 

GAl*i  :■  CAI.<  /  4 

BRA  PNT084 

* 

ELSE 

PNT083 

SIVI 

FCB  504 

* 

SWI( 4) 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 
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LDD  #$FFFF 

* 

DATA  7.999U7B 

STD  2,S 

BRA  PNT034 

* 

ELSE 

PNT0C2 

LDD  2  ,S 

CMPD  #$E000 

* 

IF  DATA  >  7 

BLS  PNT035 

* 

THEN 

LDA  1,S 

ANDA  #$03 

* 

IF  CAIN  >  i 

BEg  PliT0B4 

* 

THEN 

DEC  SENSEL 

A 

CAIN  s-  CAIN 

bra  p:rruu4 

* 

ELSE 

PNT0U5 

CMPD  #$2000 

A 

IF  DATA  <  1 

bus  p;.to$4 

A 

THEN 

LDA  1 ,S 

ANDA  #$03 

CMPA  #$03 

A 

IF  CAIN  <  64 

BEQ  PNT084 

A 

THEN 

INC  SF.NSI'L 

* 

CAIN 

PNT084 

LDD  #$0000 
PSIIU  D 

A 

FORM  X-:iAN 

PSHU  D 

LDD  2 ,S 

PSIIU  D 

LDB  #$83 

A 

FOR.'!  X-EXP 

LDA  l.S 
ANDA  #$03 
BEQ  P.'JTUafj 
PNT087  SUHB  v$U2 
DECA 

HNE  PNT037 
P.NT036  PSIIU  • 

LOB  ,S  *  FORM  X-SCN 

SEX 

co::  a 

PSIIU  A 

LEAS  4  ,S  *  REMOVE  SEMFLG,  DATA 

JSK  LFTJST  *  LEFT  JUSTIFY  X  ,V.O  SHRINK 

LDA  SENSEL  *  ENABLE  INPUT 

ANDA  tf$7F 

STA  SENSEL 

RTS 


****************************************************************************** 
*  * 

*  DEFINED  BELOW  ARE  THE  VECTOR  LOCATIONS  KOK  THE  NCfcoOy  MICROPROCESSOR.  * 

*  ALL  INTERRUPTS  AND  RESETS  CAUSE  THE  MICROPROCESSOR  TO  AUTOMATICALLY  * 

*  ACCESS  THESE  LOCATIONS  TO  DETERMINE  THE  BEGINNING  LOCATION  OF  EACH  OF  * 

*  THE  RESPECTIVE  ROUTINES.  * 

*  * 


ORC  VECTOR 
VSWI3  FOB  SWIVEC 
VSWI2  FDB  SWIVLC 
VFIRQ  FDB  FIRQ 
VIRG  FDB  IKQVEC 
VSWI  FDB  SWIVEC 
VNMI  FDB  N.MIVEC 
VRESET  FOB  RSTVEC 
END 
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Appendix  C 
Operator 's  Manual 


Contained  in  this  appendix  is  a  short  description  of  the  external 
connections,  required  information,  panel  switches,  display  and  error 
messages,  and  peripheral  interfaces  of  the  automatic  temperature  con¬ 
troller.  More  complete  information  on  each  of  these  areas  can  be  ob¬ 
tained  from  Dr.  Patrick  M.  Messenger,  AFWAL/MLPO,  Wright-Patterson  AFB, 
Ohio  45433. 

External  Connections 

All  connections  between  the  automatic  temperature  controller  and 
the  thermometers,  the  HP  6130C  Digital  Voltage  Source,  and  the  computer 
are  made  through  standard  RS-232  female  connectors.  These  connectors 
are  located  on  the  back  panel  of  the  controller. 

A  temperature  controller  can  handle  the  input  signals  from  up  to 
four  thermometers.  These  thermometers  can  produce  either  current  or 
voltage  signals.  A  10  millivolt  constant  voltage  source  is  provided 
for  each  thermometer.  This  source  may  be  used  to  bias  current  signal 
thermometers  which  are  not  biased  externally. 

Each  thermometer  must  be  connected  to  the  controller  beginning  with 
the  -1  pins,  then  the  -2  pins,  etc.  Voltage  signal  thermometers  are 
connected  between  the  VOLT  and  GND  pins.  Externally  biased  thermometers 
should  be  connected  between  the  CURRENT  and  GND  pins.  Internally  biased 
thermometers  should  be  connected  between  the  CURRENT  and  SOURCE  pins. 
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Pin  assignments  for  the  thermometer  connector  are  as  follows: 


Pin 

Pin-Outs 

Pin 

Pin -Outs 

1 

VOLT-1 

7 

VOLT -3 

2 

CURRENT- l 

8 

CURRENT-3 

14 

CND-1 

20 

GND -3 

15 

SOURCE-1 

21 

SOURCE-3 

4 

VOLT-2 

10 

VOLT -4 

5 

CURRENT-2 

11 

CURRENT -4 

17 

GND-2 

23 

GND -4 

18 

SOURCE-2 

24 

SOURCE-4 

The  HP  6130C  Digital  Voltage  Source  is  connected  to  the 

automatic 

temperature  controller 

with  a  cable  between  the  Jl  connector. 

located 

on  the  back  of  the  HP  6130C,  and  the  RS-232  connector  of  the 

controller 

The  pin  assignments  for 

the  RS-232  connector 

to  the  HP  6130C 

are  as 

follows: 

Pin 

Pin -Outs 

Pin 

Pin-<Xits 

1 

GATE 

14 

FLAG 

2 

V  SIGN 

15 

DO 

3 

D1 

16 

D2 

4 

D3 

17 

LATCH  STAT 

5 

D4 

18 

OVLD  STAT 

6 

D5 

19 

D6 

7 

D7 

20 

D8 

8 

D9 

21 

V  RANGE 

9 

DIO 

22 

Dll 

10 

D12 

23 

L22 

11 

D13 

24 

L23 

12 

D14 

25 

L24 

13 

GND 

The  Internal  connections  between 

the  microcomputer  board 

and  the 

RS-232  connector  designated  for  the  computer 

were  not  completed  during 

the  Implementation  of  the  controller. 

Therefore,  the  user  must  make 

the  connections  between 

H-13  of  the  microprocessor  board  and 

the  RS-232 

connector.  Once  these 

connections  are 

made. 

a  patch-cord  between  the 

RS-232  connector  of  the 

controller  and 

the  Jl 

connector  of  the  DRV-I1 
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parallel  Interface  card  on  the  LSI-11  computer  will  complete  the  hard¬ 
ware  Interface. 


Required  Information 

Once  the  automatic  temperature  controller  is  powered  up,  it  will 

begin  to  prompt  the  user  for  required  information.  The  following  is  a 

list  of  the  prompts  and  an  explanation  of  what  each  means: 

HOW  MANY  SENSORS  WILL  BE  USED(1 ,2 ,3 ,4) ? 

How  m.^ny  thermometers  have  been  connected  to  the  automatic 
temperature  controller? 

IS  SENSOR  i  THE  PRIMARY  SENSOR(Y.N)? 

Is  the  1th  thermometer  to  be  monitored  when  changing  from 
one  temperature  to  another?  Answering  NO  causes  the  con¬ 
troller  to  use  the  ith  thermometer  as  a  control  thermometer. 

DOES  SENSOR  i  HAVE  A  POSITIVE  SLOPE(Y.N)? 

Does  the  ith  thermometer  produce  a  signal  which  is  mono- 
tonlcally  Increasing  with  temperature? 

DOES  SENSOR  i  PRODUCE  A  VOLTAGE  SIGNAL(Y.N)? 

Is  the  signal  produced  by  the  ith  thermometer  a  voltage 
signal?  Answering  NO  causes  the  controller  to  assume  that 
the  ith  thermometer  produces  a  current  signal. 

DOES  SENSOR  i  REQUIRE  INTERNAL  POWER(Y.N)? 

Does  the  ith  thermometer  require  the  use  of  the  10  milli¬ 
volt  internal  biasing  source? 

OVER  WHAT  RANGE  SHOULD  SENSOR  i  BE  USED  START  POINT?  END  POINT? 

What  temperature  range  should  the  ith  thermometer,  a 
control  thermometer,  be  used  to  control  temperature? 

The  temperature  range  must  be  expressed  as  the  corre¬ 
sponding  input  signal  levels  of  the  primary  thermometer, 
the  thermometer  used  to  adjust  temperature. 

OVER  WHAT  RANGE  SHOULD  SENSOR  i  BE  POWERED?  START  POINT?  END  POINT? 

What  temperature  range  should  the  constant  voltage  biasing 
source  be  applied  to  the  1th  thermometer?  The  temperature 
range  must  be  expressed  ss  the  corresponding  input  signal 
levels  of  the  primary  thermometer. 
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WHAT  IS  THE  DESIRED  STEADY-STATE  ERROR? 

How  close  does  the  measured  Input  signal  have  to  be  to 
the  desired  Input  signal  level  of  the  primary  thermometer 
before  the  controller  Is  allowed  to  switch  to  one  of  the 
control  thermometers? 

WHAT  IS  THE  POWER  SUPPLY  OUTPUT  CURRENT  LIMIT  IN  MILLIAMPS? 

What  should  the  output  current  through  the  heater  coil  be 
limited  to? 

WHAT  IS  THE  LOAD  RESISTANCE  IN  OHMS? 

What  is  the  resistance  of  the  heater  coil? 

Panel  Switches 

Certain  controller  operations  can  be  controlled  using  the  panel 
switches  located  on  the  front  of  the  automatic  temperature  controller. 
These  switches  include  a  toggle  switch,  a  rotary  switch,  a  reset  switch, 
and  a  power  switch. 

The  toggle  switch  indicates  to  the  temperature  controller  whether 
the  desired  input  signal  level  will  be  supplied  by  the  computer  or  the 
user.  With  the  switch  in  the  COMPUTER  position,  temperature  adjustment 
and  control  is  done  automatically.  With  the  switch  in  the  MANUAL  posi¬ 
tion,  the  user  must  enter  the  desired  input  signal  level  for  each  new 
temperature  set  point. 

The  rotary  switch  determines  which  thermometer  will  be  used  for 
temperature  control.  Five  positions  are  available  on  this  switch: 

AUTO,  1,  2,  3,  and  A.  With  the  switch  in  the  AUTO  position,  the  con¬ 
troller  will  determine  which  thermometer  should  be  used  for  control 
based  upon  the  desired  input  signal  level  and  the  information  provided 
by  the  user  on  each  of  the  control  thermometers.  With  the  switch  in 
any  other  position,  the  corresponding  thermometer  will  be  used  for  con- 
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trolling  temperature.  If  the  thermometer  selected  does  not  exist,  the 
highest  numbered  thermometer  will  be  used  for  temperature  control.  For 
example,  if  the  switch  is  in  position  4  and  only  2  thermometers  exist, 
then  thermometer  2  will  be  used  for  control. 

The  two  remaining  switches,  the  power  switch  and  the  reset  switch, 
are  used  for  applying  power  to  the  temperature  controller  and  resetting 
the  microprocessor  system.  The  microprocessor  system  is  automatically 
reset  upon  power-up.  If  the  reset  switch  is  closed,  all  information 
entered  by  the  user  or  the  computer  is  lost  and  the  controller  will 
begin  prompting  the  user  to  enter  this  information  again. 

Display  and  Error  Messages 

During  the  normal  operation  of  the  automatic  temperature  controller, 
the  display  is  used  for  prompting  information  from  the  user  and  indi¬ 
cating  the  current  status  of  the  controller.  The  normal  display  during 
temperature  adjustment  and  temperature  control  is: 

ND  ■M’.XXXXXx/fXX 

where 

N  la  the  number  of  the  present  thermometer  being  monitored 

D  Is  the  direction  of  change  from  the  last  thermometer  sample 

+O.XXXXXx/+XX  is  the  present  thermometer  reading  in  volts  for 
thermometers  which  produce  voltage  signals  and  hundreds  of 
microamperes  for  thermometers  which  produce  current  signals. 

In  addition  to  the  normal  display  format,  the  following  error  messages 

are  also  Included  along  with  an  explanation  of  each: 

INVALID  INPUT 

The  data  which  have  just  been  entered  are  invalid  or  are 
inconsistent  with  the  data  which  have  been  previously 
entered. 
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SENSOR  i  MUST  BE  POWERED  OVER  THE  ENTIRE  USABLE  RANGE 


The  ith  thermometer  has  been  determined  to  require  the  use 
of  the  internal  voltage  biasing  source.  The  range  over 
which  the  voltage  biasing  source  is  to  be  used,  however, 
does  not  provide  a  biasing  source  for  the  ith  thermcroeter 
over  the  entire  range  that  the  ith  thermometer  is  to  be 
used . 

PRIMARY  SENSOR  NOT  SPECIFIED  .  .  .  REENTER  DATA 

None  of  the  thermometers  specified  has  been  identified  as 
the  thermometer  to  be  used  for  adjusting  the  temperature. 

SECONDARY  SENSOR  UNDETERMINED  .  .  .  WHICH  SENSOR  SHOULD  BE  USED? 

The  thermometer  to  be  used  for  temperature  control  cannot 
be  determined  from  the  information  provided  on  each  of 
the  thermometers.  Which  one  of  the  available  thermometers 
should  be  used  for  temperature  control? 

POWER  SUPPLY  CURRENT  LIMIT  EXCEEDED.  SHOULD  THIS  LIMIT  BE  INCREASED? 

The  HP  6130C  Digital  Voltage  Source  has  determined  that 
the  specified  maximum  heater  coil  current  has  been  ex¬ 
ceeded.  Should  the  maximum  heater  coil  current  limit  be 
increased? 

HARDWARE  FAILURE  .  .  .  DEFAULT? 

The  input  data  from  the  toggle  switch  is  invalid  and  it  is 
suspected  that  the  problem  resides  in  a  broken  connection 
in  the  switch  hardware.  Should  the  controller  assume  that 
input  is  to  be  entered  from  the  keypad?  Answering  NO  will 
terminate  the  controller  program. 

UNDEFINED  COMPUTER  INPUT  .  .  .  DEFAULT? 

The  desired  input  signal  level  provided  by  the  computer  is 
an  undefined  number.  Should  the  controller  assume  that 
this  number  is  zero?  Answering  NO  will  terminate  the  con¬ 
troller  program. 

DIVISION  BY  ZERO  .  .  .  DEFAULT? 

An  attempt  has  been  made  to  perform  division  by  zero. 

Should  the  controller  assume  that  the  result  of  this 
division  is  a  large  positive  number?  Answering  NO  will 
terminate  the  controller  program. 

A/D  DATA  MISSED  .  .  .  DEFAULT? 

The  A/D  status  line  was  high  when  the  A/D  converter  was 
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read  Indicating  that  the  data  may  not  be  valid.  Should 
this  error  be  Ignored?  Answering  NO  will  terminate  the 
controller  program. 

A/D  OVERLOAD  .  .  .  DEFAULT? 

The  signal  being  measured  by  the  A/D  converter  is  too 
large  for  the  A/D  to  handle  even  with  minimum  gain  from 
the  programmable  gain  stage.  Should  the  controller 
assume  that  this  is  a  full  scale  reading  and  continue 
execution?  Answering  NO  will  terminate  the  controller 
program. 

Peripheral  Interfaces 

This  section  contains  a  functional  description  of  each  bit  of  the 
PIA  peripheral  data  and  control  registers  for  each  of  the  peripheral 
interfaces:  The  display  interface,  the  switch  and  keypad  interface, 
the  heater  coil  interface,  the  thermometer  interface,  and  the  computer 
interface. 

DISPLAY  INTERFACE 
ADDR  1000  b3b2blb0 

ADDR  1001  b7b6b5b4b3b2blb0 
ADDR  1010  b5b4b3 
ADDR  1011  b5b4b3 

SWITCH  AND  KEYPAD  INTERFACE 
ADDR  1002  b6b5 
ADDR  1002  b4b3b2blb0 
ADDR  1003  b7b6b5b4b3b2blb0 
ADDR  1012  b7b6 
ADDR  1012  b5b4b3 


Digit  position  of  where  the  next  char¬ 
acter  is  to  be  placed  on  the  display. 

Character  to  be  output  to  the  display. 

Controls  the  display  enable. 

Controls  the  output  strobe  pulse  for 
ADDR  1001. 

Input  data  from  the  toggle  switch. 

Input  data  from  the  rotary  switch. 

Input  data  from  the  keyboard. 

Switch  change-of-state  detection  bits. 

Switch  edge  detection  and  interrupt 
control  bits. 
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ADDR  1012  blbO 


Switch  edge  detection  and  interrupt 
control  bits. 


ADDR  1013  b/  Keypad  key  detection  bit. 

ADDR  1013  blbO  Keypad  edge  detection  and  interrupt 

control  bits. 


HEATER  COIL  INTERFACE 


ADDR 

1005 

b7 

ADDR 

1005 

b6 

ADDR 

1005 

b3 

ADDR 

1005 

b2blb0 

ADDR 

1006 

b7 

ADDR 

1006 

b6b5b4b3b2blbC 

ADDR 

1007 

b7b6b5b4b3b2bl  bO 

ADDR 

1015 

b7 

ADDR 

1015 

blbO 

ADDR 

1017 

b5b4b3 

Busy  flag  from  the  HP  6130C. 

Current  Latch  Status  from  HP  6130C. 

Voltage  Range  output  to  HP  6130C. 

Current  Limit  output  to  HP  6130C. 

Voltage  Sign  output  to  HP  6130C. 

Most  Significant  Voltage  Magnitude 
output  to  HP  6130C. 

Least  Significant  Voltage  Magnitude 
output  to  HP  6I30C. 

Voltage  Source  Overload  detection 
bit. 

Voltage  Source  Overload  edge  detection 
and  interrupt  control  bits. 

Controls  the  output  strobe  pulse  for 
ADDR  1007. 


THERMOMETER  INTERFACE 


ADDR 

1008 

b7 

ADDR 

1008 

b6 

ADDR 

1008 

b5 

ADDR 

1008 

b3b2blb0 

ADDR 

1009 

b7 

ADDR 

1009 

b6 

A/D  input  data  polarity. 

A/D  input  data  overrun  indication  bit. 

A/D  status  indication  bit. 

Constant  Voltage  Source  output  control 
bits. 

A/D  signal  input  control  bit. 

A/D  run/hold  control  bit. 


C  - 


8 


ADDR 

1009 

b5b4b3b2 

ADDR 

1009 

blbO 

ADDR 

100A 

b7b6b5b4b3b2blbO 

ADDR 

100B 

b7b6b5b4b3b2blbO 

ADDR 

1019 

b5b4b3 

ADDR 

101A 

b7b6 

ADDR 

101 A 

b5b4b3 

ADDR 

101A 

blbO 

Thermometer  select  bits. 

Programmable  gain  control  bits. 

Most  Significant  A/D  input  data. 

Least  Significant  A/D  input  data. 

Thermometer  select  enable  bits. 

A/D  status  change-of-state  detection 
bits. 

A/D  status  edge  detection  and 
interrupt  control  bits. 

A/D  status  edge  detection  and 
interrupt  control  bits. 


COMPUTER  INTERFACE 

ADDR  100C  b7b6b5b4b3b2blb0 
ADDR  100D  b7b6b5b4b3b2blbO 
ADDR  10 1C  b7 
ADDR  101C  b5b4b3blbO 
ADDR  101D  b5b4b3 


Most  Significant  Computer  input  data. 
Least  Significant  Computer  input  data. 
Ccraputex  input  data  detection  bit. 
Handshake  signal  control  bits. 
Temperature-set  output  indication  bit. 
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